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49 1. ABSTRACT 

50 

51 TWO SEPARATE DIAGNOSTIC PROGRAMS ARE PROVIDED FOR THE OLil-E 

52 f ASYNCRONQUS LINE INTERFACE) § MAlNDEC^l i-DZDLA (OL11-E OFF LINE 

53 TESTS) AND M A INDECM i -DZDLB (DLli-E ON LINE TESTS) 8 THE OFF LINE 

54 TESTS TEST ALL DLtl-E LOGIC AND MAY BE USED TO INDIVIDUALLY 

55 TEST UP TQ 31 OLll-E'S. THE OFF LINE TESTS DO NOT REQUIRE THE 

56 USE OF A MODEM, HOWEVER A SPECIAL JUMPER CONNECTOR IS REQUIRED. 

57 THE ON LINE TESTS ARE ESSENTIALLY DATA RELIABILITY TESTS RE® 

58 QUIRING THE USE OF MODEMS AND A SUITABLE TERMINAL DEVICE. 
59 

60 THREE STARTING ADDRESSES ARE PROVIDED, THEY AREl 

61 

62 200 - NORMAL START 

63 210 « REMAP DEVICES PRESENT AND RESTART 

64 220 - MODIFY DEVICE ADDRESSES IF NON STANDARD 

65 INSTRUCTIONS TO DO THIS ARE TYPED OUT, 

66 

67 THIS DOCUMENT DESCRIBES THE ON LINE TESTS, 

6§ 

6f THE AVAILABLE TESTS ARE I 

70 

71 PRG0 SINGLE CHARACTER LINE MODE DATA TEST 

72 PRG1 BINARY COUNT LINE MODE DATA TEST 

73 PRG2 MESSAGE TRANSMIT ONLY W/W/O PARITY 
7a PRG3 RECEIVE DATA TEST 

75 PRG4 MESSAGE TRANSMIT (SPIRAL) ONLY W/W/O PARITY, 

76 

77 2. REQUIREMENTS 

78 

79 2*1 EQUIPMENT 

80 

81 A. POP 11 SYSTEM 

62 

83 B* DLll-E(S) 

6a 

85 C, SUITABLE TERMINAL DEVICE (ASR 33, 37, DATA POINT, ETC) 

66 

87 D. MODEM TYPE 103 OR 202 OR EQUIVALENT 

68 

89 2*3 STORAGE 

90 

91 THIS PROGRAM USES 8K OF MEMORY 



OZDL 
OZDL 
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3. OPERATING PROCEDURE! 

3 t i loading procedure 

THE ABSOLUTE LOADER IS USED TO LOAD THE PROGRAM , 
3*2 DLii^E PARAMETER SELECTION 

THE SELECTABLE DL i i»E PARAMETERS ARE S 
BIT1-0 CHARACTER LENGTH 



BIT i 
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CHAR, LENGTH 
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WHEN A TERMINAL IS INVOLVED DL11-E PARAMETERS SHOULD BE 
SET ACCORDING TO TERMINAL SPECIFICATIONS. 

3,3 PDP-11 STANDARD OPERATING PARAMETERS 
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SW13 
SW12 
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HALT ON ERROR 
SCOPE LOOP (NOT USED) 
INHIBIT ERROR PRINTOUT 
INHIBIT TRACE TRAP (NOT USED) 
INHIBIT ITERATION (NOT USED) 
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175 THE PROGRAM WILL REQUEST THE LINE NUMBER THAT YOU CALLED FROM. 

176 TYPE TH|S IN OCTAL FOLLOWED BY A CARRIAGE RETURN. WHEN THE CARRIER 

177 IS HEARD IN THE HEADSET PRESS THE DATA BUTTON ON THE DATA SET, 

178 YOU HAVE APPROXIMATLV 10 SECONDS IN WHICH TO DO THIS* WHEN 

179 THE 'HANDSHAKING* IS COMPLETED THE PROGRAM WILL REQUEST 

180 DLll-E PARAMETERS. TYPE THE PARAMETERS AS REQUESTED a 

181 THE PROGRAM WILL TYPE 'LINE CONNECTION MADE ' AND 

i8a BEGIN DATA TRANSMISSION. WHEN 100. CHARACTERS HAVE BEEN 

183 PROCESSED (TRANSMITTED/RECEIVED AND CHECKED) THE BELL WILL 

164 RING AT THE TTY, AND ANOTHER 100. CHARACTER BLOCK WILL BE 

185 PROCESSED* 

186 NOTE, DL11-E#X REFERS TO THE 'CALLED' DLll-E, AND DLlt-E#Y RE- 
167 FERS TO THE CALLING DLll-E. 

188 
189 

190 ***************** ***************** 

lf| * * * * 

1*2 * ® * * 

193 * DATA SET HBiiiiiisiiiiBiisiisifBt DATA SET * 

194 * * * * * 

195 * * * * 

196 ***************** ***************** 

197 * * 

198 * * 

199 * * 
§00 * * 

201 ***************** ***************** 

202 * * * * 

203 * * * * 

204 * DL11«®E * * DLll-E * 

205 * * * * 

206 * * * * 

207 ***************** ***************** 

208 * * 

209 * * 

210 * UNIBUS * 

211 . 

212 

213 CONFIGURATION 1 103 OR 202 

214 CONFIGURATION 2 103 ONLY 
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CONFIGURATION 2i THIS CONFIGURATION TRANSMITS DATA FROM BOTH 
THF CALLED TRANSMITTER AND THE TRANSMITTER CONNECTED TO THE 
LINE THAT WAS CALLING, I.E. IN ADDITION TO THE DATA TRANSMITTED 
AS IN CONFIGURATION 1 DATA IS ALSO TRANSMITTED IN THE REVERSE 
DIRECTION. TO INITIATE PROGRAM ACTION CALL THE DLli-E YOU WISH 
TO TRANSMIT ON FROM THE DLU-E YOU WISH TO RECEIVE/TRANSMIT ON. 
WHEN THE PHONE RINGS AT THE PDPll THE PROGRAM WILL REQUEST THE 
CONFIGURATION AND MODEM TYPE. TYPE BIT0-1 «10 AND BIT3«0, NOTE! 
********DO NOT USE MODEM TYPE 202 COR EQUIV) USING CONFIG #2**4* 
THE PROGRAM WILL REQUEST THE LINE YOU CALLED FROM, TYPE THE 
NUMBER IN OCTAL FOLLOWED BY A CR. WHEN THE CARRIER IS 
HEARD IN THE HEADSET PRESS THE DATA BUTTON ON THE DATA SET , 
NOTE YOU HAVE APPROX IMATLY 10 SECONDS IN WHICH TO DO THIS, 
WHEN THF 'HANDSHAKING IS COMPLETED THE PROGRAM WILL REQUEST 
TWO SETS OF OLH»E PARAMETERS, THE CHARACTER LENGTH OF BOTH SETS 
MUST BE THE SAME AND THE SPEED OF THE SECOND SET MUST BE GREATER 
THAN THE SPEED OF THE FIRST. WHEN THE PARAMETERS HAVE BEEN LOAD* 
ED THE PROGRAM WILL TYPE 'LINE CONNECTION MADE* AND BEGIN TO 
WAY DATA TRANSMISSION. WHEN 100. CHARACTERS HAVE BEEN RECEIVED 
AND CHECKED THE BELL WILL RING AT THE TTY, AND ANOTHER BLOCK 
OF 10® 8 CHARACTERS WILL BE PROCESSED. 

NOTE, DLU-E#X REFERS TO THE f CALLED® DLi i w Et AND OLil»I#Y Rg*> 
FERS TO THE 'CALLING' OLli«E« 



3*5 LINE NUMBERS 



LINE NUMBER REFERS TO THE ADDRESSES TO WHICH THE DLii»E RESPONDS 



LINE 00 77561X 
LINE 01 77562X 
LINE 02 77563X 
t INE 03 77564X 
LINE 04 77565X 
LINE 05 77656X 
LINE 06 77567X 
LINE 07 77570X 



LINE 10 77571X 
LINE 11 77572X 
LINE 12 77573X 
LINE 13 77574X 
LINE 14 77575X 
LINE 15 77576X 
LINE 16 77577X 
LINE 17 77600X 



LINE 20 77601X 
LINE 21 77602X 
LINE 22 77603X 
LINE 23 77604X 
LINE 24 77605X 
LINE 25 77606X 
LINE 26 77607X 
LINE 27 77610X 



LINE 30 77611X 
LINE 31 77612X 
LINE 32 77613X 
LINE 33 T7614X 
LINE 34 77615X 
LINE 35 77616X 
LINE 36 77617X 
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252 a. USE PROCEDURE 

253 ...... 

254 

255 THIS PROGRAM HAS BEEN MODIFIED TO RUN WITH OR WITHOUT 

256 A CONSOLE PROCESSOR* 

25? IF A CONSOLE MACHINE IS USED! THEN THE PROGRAM 

258 LOOKS AT THE HARDWARE SWITCH REGISTER. 

259 IF A CONSOLE^LESS MACHINE IS USED; THEN THE PROGRAH 

260 AUTOMATICALLY LOOKS AT THE CONTENTS OF LOCATION 

261 SOFTSR (176) AS A SWITCH REGISTER » 

265 IT'S THE RESPONSIBILITY OF THE OPERATOR TO SET UP 
264 THIS LOCATION PRIOR TO STARTING THE PROGRAM, 

265 

266 4.1 PRG0 SINGLE CHARACTER LINE MODE DATA TE8T 
26? 

266 A, LOAD ADDRESS » 000200 (RESTART LOAD ADDR. ® 000200) 
269 

270 B , START - PROGRAM WILL REQUEST PROGRAM NUMBER 

271 

£72 C« THE PROGRAM WILL NOW REQUEST THE DATA. TYPE THE DATA IN OCTAL 

273 FOLLOWED BY A CARRIAGE RETURN, 

274 

275 D* MAKE LINE CONNECTION. SEE SECT 3.4 

276 

277 

278 4,2 PRG1 - BINARY COUNT LINE MODE DATA TEST 

279 

280 A. LOAD ADDRESS ■ 000200 

261 

26g B , START m PROGRAM WILL REQUEST PROGRAM NUMBER 

263 

264 C. MAKE LINE CONNECTION SEE SECT 3.4 

265 
236 

267 4.3 PRG2 - SPECIAL MESSAGE XMIT ONLY 
288 

289 A 9 LOAD ADDRESS ■ 000200 

290 

291 B, START • PROGRAM WILL REQUEST PROGRAM NUMBER 

292 

293 C. DEPRESS START « THE PROGRAM WILL IDENTIFY ITSELF AND 

294 TYPE INSTRUCTIONS TO SELECT DESIRED OLli-E PARAMETERS 

295 

296 (SEE SECT 3.2) 

29? 

298 0, TYPE IN PARAMETERS. IF IT IS DESIRED TO TRANSMIT 

299 DATA WITH PARITY SET BIT6. ALSO SET BITS TO TRANSMIT ODD 

300 PARITY ANO CLEAR TO TRANSMIT EVEN PARITY. 
301 

302 BIT6 1/0 ENABLE/DISABLE PARITY 

303 BITS 1/0 TRANSMIT ODD/EVEN PARITY 

304 

305 E. WHEN 'MAKE LINE CONNECTION ' IS TYPED CALL THE OLU-E 
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-Oil WISH TO TRANSMIT ON FROM THE TERMINAL MODEM, 
WHEN THE 'HANDSHAKING' IS COMPLETED THE MESSAGE 
'THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 
®123«56789* WILL BE TRANSMITTED. TO T ERMINATE, HANG 
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a. tt PRG3 - RECEIVE TRANSMIT MESSAGE TEST 

A. LOAD ADDRESS « 000200 

B. START m PROGRAM WILL REQUEST PROGRAM NUMBER 

C f THE PROGRAM WILL IDENTIFY ITSELF AND 

TYPE INSTRUCTIONS TO SELECT DESIRED OPTIONS. 

0. SET IN OPTIONS AND PRESS CONTINUE. 

E. WHEN 'MAKE LINE CONNECTION* IS TYPED CALL THE DL11«»E 
YOU WISH TO TRANSMIT ON. WHEN THE 'HANDSHAKING' IS COMPLETED 
THE DLH«»E WILL TRANSMIT A CRLF TO THE TERMINAL DEVICE. AT THIS 
TIME YOU MAY BEGIN TO SEND DATA FROM THE DEVICE TO THE DL11-E 
WHERE IT WILL BE ECHOED BACK TO THE TERMINAL. TYPE ANY CHARACTER 
TO SIGNAL START OF MESSAGE. THEN TYPE MESSAGE AND THE SAME 
CHARACTER TO SIGNAL END OF MESSAGE. CONTROL C WILL CAUSE THE 
BUFFERS CONTENTS TO BE TRANSMITTED WHEN TYPED, 

F. IF NO ECHO IS DESIRED CON A CHARACTER BASIS FOR EXAMPLE 
WHEN USING A TERMINAL THAT PRODUCES ITS OWN LOCAL COPY) 
SET BIT? OF SWITCH REGISTER. 

4 9 5 PRG4 • SPECIAL MFSSAGE XMIT ONLY 

A* LOAD ADDRESS ■ 000200 

B. OPTIONS 

1. BITS 0-2 • 4 

2. BITS 3-6 * LINE NUMBER (SEE SECT 3**55 

C. DEPRESS START . THE PROGRAM WILL IDENTIFY ITSELF AND 
TYPE INSTRUCTIONS TO SELECT DESIRED DLil*E PARAMETERS 

CSEE SECT 3 ffi 23 

D. SET IN PARAMETERS IF IT IS DESIRED TO TRANSMIT 

DATA WITH PARITY RAISE SR6. ALSO RAISE SR5 TO TRANSMIT ODD 
PARITY AND LOWER TO TRANSMIT EVEN PARITY. 

8IT6 1/0 ENABLE/DISABLE PARITY 

BITS 1/0 TRANSMIT ODD/EVEN PARITY 

E. WHEN 'MAKE LINE CONNECTION ' IS TYPED CALL THE DL11-E 
YOU WISH TO TRANSMIT ON FROM THE TERMINAL MODEM, 

WHEN THE 'HANDSHAKING' IS COMPLETED A SPIRAL 
PATTERN WILL BE TRANSMITTED. TO TERMINATE, HANG UP. 



"HIP" '" ;; llll§ r ^IIIIIF ^(pf 

DZDLBB MACY11 2?C65T) 17-N0V-75 US50 PAGE 10 
OZDLBB.SRC 



358 S 8 PROGRAM DESCRIPTIONS 

359 

360 5,1 PRR0 « SINGLE CHARACTER LINE MODE DATA TEST 
361 

362 PRG® TRANSMITS USER SPECIFIED DATA AND A CARRIAGE RETURN/LINE FEED 

363 EVERY 72N0 CHARACTER. 

364 

365 5.2 PRG1 « BINARY COUNT PATTERN LINE MODE DATA TEST 
366 

367 PRG1 TRANSMITS A BINARY COUNT PATTERN. THIS PROGRAM IS THE SAME 

366 AS PRG0 EXCEPT FOR THE DATA TRANSMlTTEO f 
369 

370 5 B 3 PRG2 - SPECIAL MESSAGE TRANSMIT ONLY 

3?1 

372 PRG2 TRANSMITS THE MESSAGE 

373 THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 0123456789, 
5?4 NO DATA ERROR CHECKING IS PERFORMED BY THE PROGRAM. 

375 

376 5, a PRG3 - RECEIVE/TRANSMIT MESSAGE TEST 
377 

378 PRG3 - RECEIVES DATA FROM A TERMINAL AND READS THE RECEIVED MESSAGE 

379 BACK 9 AND TYPES THE MESSAGE ON THE PDP-11 TTY WHEN THE MESSAGE 
360 IS TERMINATED. CHARACTERS MAY BE ECHOED BACK (IF REQUIRED) ON 

381 A CHARACTER BASIS THEREBY CREATING LOCAL COPY A3 THE MESSAGE 

382 IS TYPED. 

363 TRANSMISSION MAY BEGIN AT THE TERMINAL WHEN A CR/LF IS RECEIVED 

384 AT THE TERMINAL. THIS PROGRAM IS RESTRICTED TO USE BY ONLY 

385 FULL DUPLEX MODEMS. 

386 

387 5.5 PRG4 - SPECIAL MESSAGE TRANSMIT ONLY 
388 

389 PR64 TRANSMITS A SPIRAL PATTERN, 

390 NO DATA CHECKING IS PERFORMED BY THE PROGRAM. 
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ERRORS 

THFRE ARE TwO TYPES OF ERRORS WHICH ARE DETECTED BY THESE TESTS 
LIME FAILURE, AND DATA ERRORS. 

LINE FAILURES ARE DETECTED AND REPORTED BY ALL TESTS* AND 

DATA ERRORS ARE DETECTED ONLY IN PRG &1 WHEN USING C0NFI8* 

URATIONS 1 OR 2* DATA ERRORS IN THE OTHER TESTS MAY BE DETECT™ 

ED BY VISUAL INSPECTION OF THE DATA AT THE TERMINAL. 

LINE FAILURES ARF REPORTED BY TYPING THE PC 9 THE RECEIVER CON® 

TROL STATUS REGISTER ADDRESS , AND ITS CONTENTS. SEE THE PRO*® 

GRAM LISTING FOR A DETAILED DESCRIPTION OF THE ERROR. 

THE MOST FREQUENTLY ENCOUNTERED ERROR WILL PROBABLY BE THE 

LOSS OF CARRIER » THIS ERROR WILL BE REPORTED IF AFTER A LINE 

CONNECTION IS MADE THE CARRIER IS LOST* EITHER BY 'HANGING UP f 

OR A 'GLITCH' ON THE LINE CAUSING THE CARRIER TO MOMENTARILY 

DROP. IN EITHER INSTANCE THE PROGRAM DISCONNECTS THE DLll-E 

FROM THE MODEM (BY CLEARING DATA TERMINAL READY) AND THE 

LINE WILL HAVE TO BE RECONNECTED TO RESUME TESTING* 

IF IT IS PHYSICALLY IMPOSSIBLE TO GET TO THE DATA BUTTON 

WITHIN THE TIME ALLOTTED CAPPROX. 10 SECONDS) TO MAKE THE 

LINE CONNECTION, THIS TIME MAY BE INCREASED BY PUTTING A 

LARGER NUMBER INTO THE DELAY. PATCH THE LARGER NUMBER 

INTO THE ADDRESS FOLLOWING THE DELAY EMT (BETWEEN RINTBG AND 

R INTBH) .FOR EXAMPLE PATCHING IN 72460 WILL ALLOW APPROXIMATELY 

30 SECONDS IN WHICH TO RESPOND. 

DATA ERRORS ARE REPORTED BY TYPING THE PC, THE RECEIVER CONTROL 
REGISTER ADDRESS OF THE LINE THAT FAILED. WHAT THE DATA SHOULD 
HAVE BEEN, WHAT THE DATA WAS, AND THE CHARACTER NUMBER. 

PC«XXXXXX 174010 DATA S/B 301 WAS 321 CHAR NO 23 

THIS TYPEOUT INDICATES A DATA ERROR ON LINE 1 

IF CONFIGURATION 2 IS SELECTED TWO ERROR TYPOUTS MAY OCCUR 

FOR A SINGLE ERROR DEPENDING ON WHERE THE ERROR OCCURED. CONe 

FIGURATION 2 COMPARES THE DATA RECEIVED AT THE CALLED DLU-E 

WITH THE DATA TRANSMITTED BY THE CALLED DLS1-E, AND ALSO THE DATA 

RECEIVED AT THE CALLING DLU-E (CALLER) WITH THE DATA TRANSMITTED 

BY THE CALLED DLll-E. 

IF FOR EXAMPLE A DATA ERROR OCURRED AT THE RECEIVER OF THE CALLING 
OLU-E CAUSING IT TO TRANSMIT INCORRECT DATA TO THE CALLED DLll-E TWO 
TYPEOUTS WILL OCCUR AS SHOWN BELOWS 

PC«XXXXXX 174010 DATA S/B 101 WAS 321 CHAR NO 23 
PC.XXXXXX 1?4000 DATA S/P 301 WAS 321 CHAR NO 23 

THESE TYPEOUTS SHOW THAT THE RECEIVER ON LINE WAS THE CAUSE 
OF THE EPROR AND THE RECEIVER ON LINE 1 RECEIVED THE CORRECT 
INCORRECT DATA. 

• ENOR 
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44 | 






442 






443 






444 






445 






446 






447 






448 






449 






450 






451 






45a 






453 






454 






455 






456 






457 






458 






459 






460 






461 






462 






463 






464 






465 




fS (% fll IB III t% 

PI00000 


466 


00P000 


fk f% il IS ?l fll 

0045i?0 


467 


000002 


0)00000 


468 


000004 


004520 


469 


000006 


000040 


470 


0000 1 


fin /l s mm 


4T l 


000012 


000 1 00 


472 


000014 


00*1520 


473 


000016 


000140 


474 


000020 


004626 


475 


000022 


000340 


476 


000024 


002646 


477 


f% n n f% a a. 
000026 


ra fh fk 1 /1 ft 
000 340 


478 


000030 


002222 


479 


000032 


000340 


480 


000034 


A04520 


481 


000036 


000340 


482 


000040 


000042 






000000 


484 






485 






486 






487 






488 






489 






490 




177776 


49l 




001200 


492 




000000 


493 




1 00000 


494 




1 00000 



.TITLE nZDLSB 

.ENABLE A 8 S # A M A 
THIS TEST CHECKS THE PLU-E USING MODEMS 
REFER ALSO TO TEST OZOLA (nLil-E OFF LINE TESTS) 
STARTING PROCEEDURE 

LOAD ADDRESS 200 

STACK POINTER IS AT 1200 
PRESS START 

AVAILABLE PROGRAMS 

PRQ0w SINGLE CHARACTER LINE MODE DATA TEST. 

PRG1- SPECIAL BINARY COUNT LINE MODE DATA TEST. 

PRG2- SPECIAL MESSAGE XMIT ONLY W/W/O PARITY 

PRG3- RECEIVE DATA TEST 

PRG4- SPIRAL PATTERN MESSAGE XMIT ONLY W/W/O PARITY 

PRG5- DATA ECHO TEST (USES FACILITY AT MAYNARD) 



STANDARD SR SWITCH OPTIONS (SWITCH SET TO A 1 

SR15- HALT ON ERROR. 

SR14- SCOPE (NOT USED) 

8R13- INHIBIT PRINTOUT 

8R12- INHIBIT TRACE (NOT USED) 

SRll- INHIBIT ITERATION (NOT USED) 

.80 



ERTP 



MACHERl ERTP 
40 

ERTP 

100 

ERTP 

140 

MAPVEC 

PRTYT 

PF AIL 

PRTY7 

EMTINT 

PRTYT 

ERTP 

340 

.+2 

HALT 

«REPT 

B *2 

4 

• ENDR 



f EQUATE STATEMENTS 
P8W»J77776 

STKPTRaitaa 
OPENsB 

MANUAL>BIT1S 
81715*100000 



IUNA88IGNED TRAP 

ISP OVERFLOW, BUS ERROR TRAP 

J RESERVED INSTRUCTION TRAP 

I TRACE TRAP 

I TRAP TO MAP VECTOR 

IPOWER FAIL TRAP 

IEMT TRAP 



f TRAP TO MAP MAKER 
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495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
s534 
B35 
536 
537 
538 
339 
300 
3«1 
342 
343 
344 
543 
546 
547 
348 



040000 
9120000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
9100010 
000004 
000002 
000001 
005726 
022626 
000340 
000300 
000240 
000200 
000140 
000100 
000040 



104000 
104001 
104002 
104003 
104004 
104005 
104006 
104007 
104010 
104011 
104012 
104013 
104014 
104015 
104016 



BIT14I4Q000 

B!T13«20000 

B!Tia«1000fl 

BlTn«4000 

BIT1012000 

BIT9»1000 

BIT6>400 

BZT7«800 

RIT6I100 

BITSB40 

BIT4»«0 

BITlaiS 

8IT8»4 

BITIhI 

BIT0m 

P0P8PS37S6 

POP3Pe«0&26a6 

PRTYT1340 

PRTYM300 

PRTY3«840 

PRTY4»000 

PRTY3H40 

PRTYI-100 

PRTYt-40 

PRTY0*0 

TYPE»EMTt0 

TYPES-EMT-M 

STAU"ENT#g 

ERR0RpEMT*3 

DAT QHKiEMT** 

CMALTiEMT*S 

STffXWEMT** 

8TTXV»EMW 

EMALT»EMT*10 

8AVPE0t|MT*ll 

R8TRE$«lHT*lfi 

ERRORtlEMTtlS 

ERRTXiEHT*|« 

ERRRKiEKT«|5 

DEL*Y»EMT*16 

Nafl 

A»ft 



IPOP THE STACK. SAME AS TST (6)* 

IPOP STACK TWICE. SAME AS CMP (6)4, (6)4 

IPRIORXTV LEVEL DEFINITIONS 



RISR'N 1 ! 



.MACR 
J8R 
SRC 
D8T 

COUNT 
.ENDM 

.MACR 



CNVOA SRC ,D8T, COUNT 

XS.OAONV ISO TO OCTAL TO ASCII CONVERT. 

I SOURCE AOOR. 
I DESTINATION AOOR. 
I#0P DEBITS TO CONVERT. 



JMP 



ISR 

MOV 
RISR 



N 

••N>,X0 



ISO TO COMMON INTERRUPT SERVICE ROUTINE 



DZDLBB MAC V l i ?7 (f,«57) 17-N0V-7S 10 i5p» PACE 10 
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3«9 
550 
551 
552 
353 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
560 
565 
566 
567 
568 
569 
570 
571 
57a 
573 
574 

575 000176 

576 000176 
577 

578 000200 

579 000206 

580 000210 
53 1 000216 
58s 000220 
583 000226 
58a 000226 

585 000232 

586 000236 

587 000202 

588 000250 
589 

590 00025a 

591 000256 

59 2 

593 00026a 
59a 000266 

595 000272 

596 000276 

597 000300 
598 

599 001200 

001202 
00120a 



00017a 

177570 



000200 
012737 
000407 
012737 
000403 
012737 

012706 

013706 
013706 
012737 

005777 

000000 
012717 

022626 
012637 
012637 
000137 
000000 
001200 
000000 



T J SR * N * I 



.MAC* ISRT N 



MOV *'N',X0 fPUT LINE • IN R0 

IGO TO COMMON INTERRUPT SERVICE 



JMP TISP 
« ENOM 

.MACR RRCV N , A 

175610*N 

.ENOM 

.MACR R8UFF N, A 
175612*N 

a ENDM 

.MACR TXMT N i A 

179614*N 
.ENOM 

.MACR TBUFF N,A 

1756lfc*N 

.ENOM 



I ADDRESS OF RECEIVER LINE i i k' 

I ADDRESS OF RECEIVER BUFFER LINE # »A' 

IAD0RE83 OF TRANSMITTER CSR LINE * 'A' 

f ADDRESS OF TRANSMIT BUFFER LINE * 'A' 



000300 

000300 



000300 



SRPTRI 



8TC0NTI 



0101082 

001016 

002024 

001200 
000006 
000000 
000256 
177720 



000176 000174 131 



000004 
000006 



600 
601 



602 001206 



0001000 
000000 



STADi 

RXCSRI 
RXBUFl 
TXCSRl 
TXBUFJ 



.■174 






1775f@ 






mmm 






• ■200 






MOV 


•START, STAD 


ISET UP FOR NORMAL START 


BR 


STCONT 


f CONTINUE 


MOV 


#REMAP,STAO 


ISET FOR A REMAP START 


BR 


STCONT 




MOV 


#M80EV i 3TAD 


1 SET TO MODIFY ON START 


MOV 


#STKPTff,1£6 


ISET BOTTOM OF STACK 


MOV 


6,*CSP) 


ISAVE CURRENT VECTOR 


MOV 


4,»C3P) 




MOV 


#1§#4 


ISET UP TIME OUT VECTOR 


T8T 


#8RPTR 


ITRY TO REFERENCE THE 






1 HARDWARE SWITCH REGISTER 


BR 


fi 


1 BRANCH IP NO TIME OUT TRAP 


MOV 


#80FT@i,SRPTR 


f CHANGE THE SWITCH REGISTER 






ITO POINT TO A SOFTWARE SW 


CMP 


tb)+, (6)* 


IRE8T0RE THE STACK 


MOV 




IRE8T0RE TIME OUT VECTOR 


MOV 


C6)*,6 




JMP 






MUMP TO 8ELECTEB START 


.'1800 







IRECEXVER CSR UNDER TEST 
IRECEXVER BUFFER UNDER TEST 
ITRAN8MITTER CSR UNDER TEST 
I TRANSMITTER BUFFER UNDER TEST 



DZDLBB MATY1 1 27 (657) 17-N0V-75 IfliS® PAGE 15 



DZDLBB. SRC 








603 


001210 


000000 


RXVTRl 


OPEN 


600 


001212 


000200 


RXLVLI 


PRTY4 


605 


001210 


000000 


TXVTRI 


OPEN 


606 


001216 


000200 


TXLVLI 


PRTY4 


607 


001220 


177560 


TKSl 


177560 


608 


001222 


177562 


TKBl 


i??s&a 


609 


001220 


17756a 


TPS! 


177564 


610 


001226 


I7756t> 


TPBi 


177566 


611 


001230 


000060 


TKVTRI 


60 


612 


001232 


000200 


TKLVLI 


PRTY4 


613 


001230 


000064 


TPVTRI 


64 


610 


001236 


000200 


TPLVLI 


PRTY4 


615 


001200 


000000 


PRGNUMI 


OPEN 


616 


001242 


000000 


PRGXDI 


OPEN 


617 


001260 


006424 


PRGTABI 


PROP 


618 


001246 


006500 




PR01 


619 


001250 


006602 




pRat 


620 


001252 


006740 




PRiS 


621 


001250 


007474 




PRQ4 


622 


001256 


007706 




PRSS 


623 


001260 


002354 




INCPRG 


624 


001262 


002354 




INCPRG 


625 


001260 


003122 


EMTTABI 


TYP 


626 


001266 


003244 




YYPS 


627 


001270 


000000 




OPEN 


628 


001272 


002512 




ERR 


629 


001274 


002412 




DTPHK 


630 


001276 


002366 




CHLT 


631 


001300 


003042 




STRVRV 


632 


001302 


003072 




STXHTV 


633 


001304 


002400 




EHLT 


634 


001306 


0022S4 




8AVR0 


635 


001310 


002314 




RSTRG 


636 


001312 


002530 




ERR1 


637 


001314 


002710 




TXERR 


638 


001316 


002732 




RXERR 


639 


001320 


003066 




DLY 


,640 


001322 


000000 


PARBITI 


OPEN 


001324 


000000 


COUNT I 


OPEN 


64a 


001326 


000000 


8AVEI 


OPEN 


643 


001330 


000000 


LINE! 


OPEN 


644 


001332 


000000 


CONFIGI 


OPEN 


645 


001334 


000S00 


NUMBER 1 


QPIN 


646 










£4? 


001336 


000000 


OLDPSl 





648 


001-300 


000000 


TJDPCI 





649 


001302 


000000 


FROMPCI 





650 


001300 


000000 


FTITLEI 





651 


001346 


000000 


FNONEl 


§ 


652 


001350 


000000 


PMAPt 





633 


001,35g 


000000 


TEMPI i 





654 


001354 


000000 


LlNENOt 


B 


615 


001356 


000000 


RECDATl 


OPEN 


656 


001360 


000000 


XMTDATI 


OPEN 



IRECEXVER VECTOR 

IRECEXVER PRIORITV LEVEL 

f TRANSMITTER VECTOR 

ITRANSMXTTER PRIORITY LEVEL 

IL8R CSR 

ILSR BUFFER 

IL8P CSR 

ILSP BUFFER 

ILSR INTERRUPT VECTOR 

ILSR PRIORITY LEVEL 

ILSP INTERRUPT VECTOR 

ILSP PRIORITY LEVEL 

I CONTAINS CURRENT PROGRAM* 

I CONTAINS PROGRAM INDICATORS 

IPRGPJ START ADDRESS 

IPRG1 START ADDRESS 

iPRGi START ADDRESS 

IPRGJ STAR? AD0RE88 

IPRG4 START ADDRESS 

I PROS START ADDRESS 



IPOXNTKR TO TYPEOUT ROUTINE 

I POINTER TO CHAINED MESSAGES ROUTINE 

rPO INTER TO RANDOM STALL ROUTINE 

iPOfNTEf fa ERROR ROUTINE 

IPOINTIR TO DATA CHECK ROUTINE 

% COMMON HALT 

IPOXNTKR TO ROUTINE TO BET RCVR VECTOR AND PRIORITY 

IPOINTER TO ROUTINE TO SET XMXT VECTOR AND PRIORITY 

IPOINTER TO ERROR HALT ROUTINE. 

IPOINTER TO SAVE REGISTERS ROUTINE 

IPOINTER TO RESTORE REGISTERS ROUTINE 

IPOINTER TO ERROR ROUTINE 

rPOXNTER TO XMXT ERROR ROUTINE 

I POINTER TO RCVR ERROR ROUTINE 

IPOINTIR TO DELAY ROUTINE 



DZDLB8 
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657 


0P! 362 


0?)00Pi0 


65a 


001364 


0000^0 


659 


001366 




660 


001370 


ffl e? fSi f% nt% 

in iti Bw \n<fl 


661 


001372 


080000 


66a 


001374 


000000 


663 


001376 


nfliflinAn 

vj\nvi\c "\r 


664 


001400 


Si 10 V)\Q in w 


665 


001402 


000000 


666 


001404 


000000 


667 


001406 


000000 


668 






669 


001410 


000000 


670 


001412 


000000 


6?1 


001414 


000000 


672 






673 






674 


001416 


009037 


67S 


001422 


01 2706 


676 


001426 




677 


001430 


005037 


678 


001434 




679 


001442 


01 2737 


680 


001450 


HU3 / J 1 


6Bl 


001454 


an 4 4 as 


632 


001456 


4 HI A a DDI 


683 


001460 




684 


001462 


005237 


685 


001466 


V'VJV} 3 1 


686 


001472 




637 


001500 


1 2737 


688 


001506 




689 


001514 


012704 


690 


001520 




691 


001524 


020427 


692 


001530 


CM* 4 A 7 7 


693 


001532 


005037 


694 


001536 


005774 


695 


001542 


w 10 V C (0 


696 


001544 


01 a a 3 a a 


697 


001546 


01 !% 01 /I fil A 


698 


001550 




699 


001554 


022626 


700 


001556 


01 01 ni 7 ^ 01 


701 


001560 




702 $ 


001564 


004537 


703 


001570 


001352 


704 


001572 


012154 


05 


001574 


000006 


706 


001576 


004537 


707 


001602 


001354 


708 


001604 


012146 


709 


001606 


000002 


710 


001610 


011 4fll 
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001344 
001200 

177776 
004520 
000040 

001344 



001344 
001346 
177777 
001590 
000340 
010432 
001354 
010530 

177776 



CARMSK I 

CTRDJ 

TXCSRTI 

RXCSRTI 

TEMPI 

SRTl 

IN8UFPI 

BUFFPI 

CALLER 1 

CALLED I 

0TBUFP1 



001352 

003530 



003530 



OPFN 
OPPN 
OPRN 
0Pf?N 
OPEN 
OPEN 
riPF.N 
OPgN 
OPEN 
OPPN 
OPEN 



TBUFFPI OPEN 
MODEM I OPEN 
OPEN 



001354 

000004 
000006 



MAPNEl 



f CONTAINS ADDRESS FROM WHERE NEXT TRAN- 
SMITTED CHAR. (IN OUTBUF) IS TO COME 

I CONTAINS MODEM TYPE 0*103, «s2B8 
f CONTAINS ADDRESS PRpM WHERE NEXT TRANS* 

IMITTED CHAR. (CALLER'S LINE) IS TO COME 



CLR 


FTITLE 




MOV 


#3TKPTR,X6 


ISET BOTTOM OF 3P STACK. 


RESET 






CLR 


P3W 




MOV 


•ERTP 1 MACHER 




MOV 


#40,MACHER*2 




T8T 


FTITLE 


ITITLE PRINTED 


BNE 


ST ART 1 


1 TCB • BRIP TMIO 


TYPE 






MTITLE 






INC 


FTITLE 


ISET TITLE PRINTED PLAO 


CLR 


PNONE 


I CLEAR NO DEVICE FLAG 


NOV 


#*1*LINEN0 




MOV 


•MAPNE, MACHER 


f SET UP POR NO DEVICE ANSWER 


MOV 


•PRTY7 » MACHER+2 




MOV 


#»C3R,X4 


ISET UP DEVICE POINTER 


INC 


LXNKNO 




CMP 


X4,#RBUP 


ILAST DEVICE 


BEO 


MAPEND 


IYES 


CLR 


PSW 




TST 


#C«) 


ITEST DEVICE 


NOP 






NOP 






BR 


MAPOK 




ADD 


#t,X4 




popsps 






BR 


MAPA 




MOV 


(4J , TEMPI 


I8AVE DEVICE POR TYPING 


JSR 


XS,OACNV 




TEMPI 






MDAOR 
6 






JSR 


X5»0ACNV 




LINING 






MLINE 

2 






MOV 


(41, XI 


IGET RXCSR DEVICE ADDRESS 
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711 


001612 


004737 


004704 






JSR 


XTiPORMAD 


712 


001616 


052737 


000001 


001330 




BIS 


*BIT0,PMAP 


713 


001624 


042777 


000100 


177352 




BIC 


•BXT6,*TXCSR 


714 


001632 


052777 


000100 


177344 




BIS 


#BIT*,#TXC3R 


715 


001640 


000240 








NOP 




716 


001642 


012737 


000340 


177776 




MOV 


#PRTY7,PSW 


717 


001650 


005737 


001210 






TST 


RXVTR 


718 


001654 


001406 








BEO 


MAPOKA 


719 


001656 


013701 


001354 






MOV 


LXNgNOiXl 


720 


001662 


006301 








ASL 


XI 


721 


001664 


013761 


001210 


010334 




MOV 


RXVTR, VECTAB(t) 


732 


001672 


042777 


000100 


177304 


MAPOKAI 


BIC 


#BIT*,#TXC8R 


723 


001700 


004537 


003530 






JSR 


XS.OACNV 


724 


001704 


001210 








RXVTR 




725 


001706 


012166 








MTRAP 




726 


001710 


000004 








4 




727 


001712 


104000 








TYPE 




728 


001714 


012146 








MLINE 




729 


001716 


005237 


001346 






INC 


PNONE 


730 


001722 


062704 


000002 






ADD 


iS.XA 


731 


001726 


000674 








BR 


MAPA 


732 


001730 


012737 


004520 


000004 


MAPENDt 


MOV 


•ERTP, MACHER 


733 


001736 


012737 


000040 


000006 




MOV 


*A0,MACHER«2 


734 


001744 


005737 


001346 






TST 


PNONE 


735 


001750 


0010P7 








BNE 


START! 


736 


001752 


104000 






MAPERRI 


TYPE 




737 


001754 


012176 








MNQNB 




738 


001756 


005037 


001344 






CLR 


FTITLE 


739 


001762 


000000 








HALT 




740 


001764 


000137 


001422 






JMP 


START 


741 


001770 


005037 


177776 




START! 1 


CLR 


PSW 


742 


001774 


104000 








TYPE 




743 


001776 


012213 








M3W8IL 




744 


002000 


004737 


003314 






JSR 


P©# ftQQCT 


745 


002004 


012600 








MOV 


C8P§+,X§ 


746 * 


002006 


042700 


177770 






BIC 


#177778, *0 


747 • 


002012 


010037 


001240 






MOV 


X(S,PRGNUM 


748 


002016 


006300 








ASL 


XB t 


749 


002020 


000170 


001844 






JMP 


#Pff$fAB(8i 


,750 










1 




*S1 


002024 


012706 


001200 




MODEVI 


MOV , 


#8TKPTR,X6 


752 


002030 


0000Q3 








RESIT 




753 


002032 


005037 


177776 






CLR 


PSW 


754 


002036 


104000 






MODEVH 


TYW, 




755 


002040 


014435 








MM0D1 




756 


002042 


004737 


003314 






JSR 


PCRDOCT 


757 


002046 


01 1600 








MOV 


esP9*xe 


758 


002050 


042700 


177740 






BIC 


#177748, X0 


759 


002054 


006300 








ASL 


X0 


760 


002056 


022627 


000036 






CMP 


(8PJ*,#36 


761 


002063 


101403 








BL08 


M0DEV2 


762 


002064 


104000 








TYPE 




763 


002066 


014363 








MMODX 




764 


002070 


000762 








BR 


MODEVI 



l«|T INPUT 

f (8K) TO Ri 
ILIMIT CSt) TO BITS 1*8 
I8AVE PROGRAM • 
IR0XI 

100 TO SELECTED PROGRAM. 



IGET INPUT 



IBRANCH IP * S& 
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765 


002072 


t 04000 




MOOEVgl TYPE 






766 


00207a 


7114553 




MMf)D2 






767 


00?07fe 


004717 


003318 


JSR PC.ROOCT 


1 GET INPUT 


768 


0021512 


0)32716 


0»0)000 1 


BIT 


#gf T0 f (gp ) 




769 


002186 


0014E3 






MonE V3 




770 


002110 


104000 




TYPE 






77 L 


0021 12 


#14405 




MMHDD 






772 


0021 14 


000766 




BR 


M00EV2 




773 


0021 16 


012601 




M00EV3 1 MOV 


(9P) ♦ » XI 


ISAVE OEV AOR 


77a 


002120 


01000)3 




MOV 


X0,X3 




775 


002122 


0162703 


010>432 


ADO 


•RCSR , X3 




776 


002126 


010113 




MOV 


Xi , (3) 




777 


002130 


0627tn 


0100002 


ADR 


#2»%i 


IUPOATE OEV ADR 


778 


002134 


010003 




MOV 


X0 ( X3 




779 


002136 


5*62703 


010530 


ADO 


#RBUF,X3 




780 


002142 


01(3113 




MOV 


XI, (3) 




701 


002144 


01627011 


01001002 


ADD 


#2»%1 


IUPDATE DEV ADR 


raa 


002150 


010003 




MOV 


X0iX3 




783 


002152 


062703 


010626 


ADD 


#TC8R,XS 




78a 


002156 


010113 




MOV 


XI. C3) 




785 


002160 


062701 


0(00002 


ADD 


•e.xi 


lUPDATI OEV ADR 


786 


002164 


010003 




MOV 


X0.X3 




787 


002166 


062703 


0410724 


ADO 


*»?BUP,%3 




788 


002172 


010113 




MOV 


xi, m 




789 


002174 


104000 




TYPE 






790 


' 002176 


014621 




MMOOS 






791 


: 002200 


004737 


403314 


JSP? 


PC.ROOCT 


IBET INPUT 


792 


002204 


022627 


▼7777 


CMP 


(8P}+, #177777 




793 


002210 


001712 






MOOEV1 




79« 


002212 


0105037 


001344 


CLR 


FTITLE 




795 


002216 


000137 


001422 


JMP 


START 




796 








1 






797 








iemt trap interpreter 




798 


002222 


011646 




EMTINTI MOV 


#X6,-(6) 


IGET SAVED PC. 


799 


002224 


162716 


000002 


SUB 


#2.#f£6 


1 DECREMENT PC BY 2. 


800 


002230 


017616 


0)00000 


MOV 


#UJ ,e%6 




801 


002234 


006116 




EMTAI rol 


9%h 


IEMT ARO X 3. 


80S 


002236 


042716 


177001 


BZC 


•177001,9X6 


IREMOVE 7 MSB. 


803 


002242 


062716 


001264 


ADD 


#EMTTAB,#%6 


1 FORM EMT RTN ADDR. 


804 


002246 


0117616 


000000 


MOV 




ISO TO EMT ROUTINE'. 


805 


002252 


000136 




JMP 


9 (6)* 


806 








# 






807 








ISAVE REGS TO 


4 SUBROUTINE. 


I SAVE PC AND PSW*. 


808 


002254 


012637 


002310 


SAVRGl MOV 


(6)*,SVRPC 


809 


002260 


012637 


002312 


MOV 


C&UiSVRPSW 




810 


002264 


040446 




MOV 


S4.«*6) 


ISAVE REGS • 4 


811 


002266 


010346 




MOV 


X3.-C6) 


1 IN STACK. 


812 


002270 


010246 




MOV 


X8.-C6) 




813 


002272 


010146 




MOV 


XI. -C6) 




814 


002274 


010046 




MOV 


X0.-C6) 










0023 1 2 


MOV 


SVRP3W (6) 


1 nCO 1 Uf<( rt SNU Pan. 


816 


002302 


013746 


002310 


MOV 


8VRPC.-C6) 




817 


002306 


0*550002 




RTI 




iexxt. 


818 


002310 


0100000' 




SVRPCl OPEN 






DZDUBB 


MACY11 


27(6575 


17«NOV»75 


14250 PAGE 19 







OZDLBB.SRC 



819 
820 


002312 


01 0) 






SVRPSWI 


OPEN 




821 










IRE8T0RE RgSS § 


TO 4 SUBROUTINE. 


822 


002314 


012637 


0102350 




RSTRGl 


MOV 


(6)*.R8TPC 


823 


002320 


012617 


002352 






MOV 


C6)*tR3TP8W 


824 


002324 


012600 








MOV 


C6)*,X8 


825 


002326 


012601 








MOV 


(6)**X1 


826 


002330 


012602 








MOV 


<6>*.X* 


827 


002332 


012603 








MOV 


C63*»I3 


828 


002334 


012604 








MOV 


(65*. X4 


829 


002336 


013746 


002352 






MOV 


RS?PSW,»(&5 


830 


002342 


013746 


002350 






MOV 


R8TPC r »(6) 


531 


002346 


000002 








RTI 




832 


002350 


000000 






RSTPCl 


OPEN 




833 


002352 


000000 






RSTPSWI 


OPEN 




834 


002354 


104000 






INCPRGS 


TYPE 




835 


002356 


013352 








AINPR§ 




836 


002360 


000000 








HALT 




837 


002362 


000137 


001422 






JMP 


8TAIIT 


838 










fCOMMON 


HALT ROUTINE 


839 


002366 


01 1600 






CHLT1 


MOV 




840 


002370 


162700 


000002 






sua 


ft, ie 


841 


002374 


000000 








HALT 




842 


002376 


000002 








RTI 




843 










1 






844 










ICONDITIONAU ERflOR HALT ROUTINE* 


845 


0024,00 


005777 


175570 




EHLTI 


TST 




846 


002404 


100001 








BPL 


EHLTA 


847 


002406 


000000 








MALT 




848 


002410 


000002 






EHLTA I 


RTI 




849 










1 






850 










1 DATA CHECH PtOUTSNE* 


851 


002412 


043737 


001362 


001360 


DTCMKi 


BIC 


CARHSK.XMTDAT" 


852 


002420 


123737 


001336 


001360 




CMP8 


««CDAT.XMTOAT 


853 


002426 


001430 








BE9' 


DTCHKA 


854 


002430 










CNVOA 


RECQAT.CWAS.S 


855 


002442 










CNVOA 


XMT0AT,CSB.3 


856 


002454 










CNVOA 


RXC8R.C8RA00.6 


857 


002466 


104013 








ERROR1 




.858 


002470 


012357 








CSRADD 




159 


002472 


004537 


004116 






JSR 


S«BOCNV 


860 


002476 


001364 








CTRD 




861 


002500 


013343 








CRNUM 




362 


002502 


000004 








4 




863 


002504 


104013 








ERRQfi 




364 


003506 


013300 








CERDAT 




865 


0025.10 


000002 






OTCHKAI 


RTI 




866 










V 






867 


002512 


012737 


177777 


002624 


ERRl 


MOV 




863 


002520 


012737 


000240 


012626 




MOV 


#i#§»BRRg*t 


869 


002526 


005037 


§02644 






CLR 


IRRI 


870 


002512 


0,00413 








@R 


IRRA 


871 


002534 


01 1637 


002684 




IRRH 


MOV 


tfMbfRPtS 


872 


002540 


017737 




002624 




MOV 





f 8AVE PC AND PSW. 



I RESTORE REGS 
IPROM STACK. 



iRfStORl PC and PSW. 
IEXIT 



I TYPE INCORRECT PROGRAM SELECTED. 



fDEVIidP ADDRESS OP CALLER. 

IHALT. ADDRESS OP CALL INSTRUCTION 
f IN D&f A LIGHTS. 



I CHECK POR HALT ON ERROR. 
'BRANCH IP NO HALT DESIRED'. 
IHALT. 

I IN DATA LI0HT8, 



ICLEAR UNTRAN8MJHE0 BITS 
ICOMPARE TRANSMITTED AND RECEIVEO 
ICHARS. BRANCH IP SAME. 



f CONVERT 

icma* # 

ITO DIBfMAL 
14 BITS 



I EXIT. 

I SET UP ONE MESSAGE CALL . 



IDEVELOP ADDT *L NE88A0E ADDR. 
I8T0RE AT ERRB. 



OZDLBB 


MACY1 1 


27 Cfe5?) 


! 7-NCW 








873 


002546 


012737 


177777 


874 




012737 


000002 


8?5 


002562 


032777 


020000 


87fe 


002570 


71 1 2 




877 


0025?2 


01 16^7 


002642 


878 


002576 


1 62737 


000002 


879 


002604 






880 


002616 


1 7IU01 1 




88 1 


002620 


J 04001 




88a 


002622 


012427 




883 


002624 


000000 




884 


002626 


t 77777 




883 


002630 


1 04012 




886 


002632 


t 04010 




887 


002634 


063716 


002644 


888 


002640 


000002 




889 


002642 


000000 




890 


002644 


000000 




8«?i 








892 








893 


002646 


012737 


002656 


894 


002654 


000000 




895 


002656 


012737 


003646 


896 


002664 


9100005 




89? 


002666 


012706 


001200 


898 


002672 


104000 




899 


002674 


014325 




900 


002676 


013700 


001240 


90| 


002702 


006300 




90S 
903 


002704 


0001 70 


001244 


904 


002710 






905 


002722 


012737 


012445 


906 


002730 


000410 




907 


002732 






908 


002744 


012737 


012466 


909 


002752 


011637 


003024 


9i0 


002756 


017737 


000042 


911 


002764 


032777 


020000 


912 


002772 


001017 




913 


002774 


011617 


002662 


914 


003000 


162737 


000002 


915 


003006 






916 


003020 


104001 




917 


003022 


012427 




918 


003024 


000000 








000000 




920 


003030 


177777 




921 


003032 


104010 




922 


Afflicts A 

XJ %} J «y J ** 


0627! 6 


000002 


923 


v) W J> %j ** «y 


000002 












925 








926 


a ft 7 01 A 2 


017637 


000000 


OZDLBB 


MACYll 


27 (657) 


17»N0V 


OZDLBB 


. SRC 






927 


003050 


0627 16 


000002 


928 


003054 


013701 


001210 


929 


003060 


012721 


000000 


930 


003064 


013721 


001118 


931 


003070 


000002 




932 








933 








93fl 


003072 


017637 


000000 


935 


003100 


062716 


000002 


936 


003104 


013701 


001214 


937 


003110 


012721 


000000 


938 


003114 


013721 


001316 


939 


003120 


000002 




940 








941 








942 


003122 


010037 


003312 


943 


003126 


01 1600 




944 


003130 


062716 


000002 


945 


003134 


01 1000 




946 


003136 


1 12037 


003241 


94? 


003142 


122737 


000100 


943 


003150 


001003 




949 


003152 


013700 


003312 


950 


003156 


000002 




951 


003160 


122737 


000045 


952 


003166 


001412 




953 


003170 


004717 


003176 


954 


003174 


000760 




955 


003176 


1 13777 


003242 


956 


003204 


10577? 


1 7601 4 


957 


003210 


1003T5 




958 


003212 


000207 




959 


003214 


1 12717 


000015 


960 


003222 


004737 


003176 


96| 


003226 


1 12737 


000012 


962 


003234 


004737 


003176 


963 


003240 


000736 




964 


003242 


000000 




965 








966 


003244 


010037 


003312 


9,67 


003250 


01 1600 




963 


003252 


062716 


000002 


969 


003256 


01 1037 


003306 


970 


003862 


022T37 


177777 


971 


003270 


001003 




972 


003272 


013700 


003311 


973 


003276 


000002 




974 


003300 


013700 


003312 


9?5 


003304 


104000 




976 


003306 


000000 




977 


003310 


000757 




97S 


003312 


000000 




979 








930 









U:5p PAGE 20 



002626 
002604 
17540a 



000024 
000024 



ERRDI 

ERRgi 

$ 

IPOWER 
PfAILl 

PWRUPl 



003026 



003026 



003024 
175202 



002642 



RXERRl 
CRXTXl 



CRXTXAI 
CRXTXB1 



I 



MOV 


Mm\, ERR8+2 




MOV 


«2,ERRE 




SIT 


#8IT13,f>3RPTR 


I INHIBIT ERROR PRINT? 


BNF 


CRRC 


I BRANCH TO INHIBIT PRINT. 


MOV 


9X6, ERRD 


IDEVELOP CALLING ADDR. 


SUB 


#2,ERRD 




CNVOA 


ERRD i APC # 6 


1C0NVERT CALL AOOR TO ASCII. 


SAVREG 






TYPES 




f TYPE t 


EM0 




1 ERROR HEADER, 


OPEN 




1 ADDT'L ERROR MESSAGE IF ANY. 


*»i 

RSTRE6 






EHALT 




160 ERR HALT IP 0E3IRE0. 


ADD 


ERRE,#X6 




RTt 




IEXIT, 


OPEN 






OPEN 






FAIL SERVICE 




MOV 


#PWRUP.£#24 




HALT 






MOV 


• PPAIL,M|4 




RESET 






MOV 


•8TKPTR,%6 




TYPE 






MPWRF 






MOV 


PRGNUM,X0 




A8L 


X0 




JMP 


FPRGTABC0) 




CNVOA 


TXC8RT,ATXWA8,6 


f CONVERT CONTENTS OF TXC8R TO ASCIIs 


MOV 


#ATXC8R,CRXTXB 




BR 


CRXTX 




CNVOA 


RXCSRT, ARXWASi 6 


I CONVERT CONTENTS OF RXC8R TO ASCII, 


MOV 


#ARXC8R,CRXTXB 




MOV 


#X6,CRXTXA 


IDEVELOP ADDR OF ADDTT f L ERROR MESSAGE. 


MOV 


FCRXTXA.CRXTXA 




BIT 


#8lTi3,#3RPTR 


1 INHIBIT PRINT? 


BNE 


CRXTXC 


f BRANCH TO INHIBIT PRINT*. 


MOV 


#X6,ERRD 


IDEVELOP CALLING ADDR. 


SUB 


§*»ERRD 


ICONVERT CALLING ADDR TO ASCII'. 


CNVOA 


EftRD»APC»& 


TYPES 




ITYPE ERROR MESSAGE, 


EM0 




lERR H.KAOER 


OPEN 




1 ADDT'L ERR MESSAGE 


OPEN 




ITXC8R OR RXC8R CONTENTS. 


»l 

EHALT 




IGO HALT IF DESIRED. 


ADD 


#8.tXt 




RTI 




IEXIT , 



IROUTINE TO SET RECEIVER INTERRUPT VECTOR AND PRIORITY 



003062 STRVRVI MOV 



14150 PAGE 21 



ADD 

MOV 
MOV 
MOV 
RTI 



#(&)iSTPRA*i 



#2,#8& 
RXVTR,Xi 

#op»EN,ns* 

RXLVL,Cl>* 



IMOVE VECTOR ADDR TO 8TPRA*2 



ISET UP EXIT 



I 



ISET VECTOR ADDRESS 
ISET PRIORITY 
IEXXT 



IROUTINE TO SET TRANSMITTER INTERRUPT VICTOR AND PRIORITY. 



8TXMTVI MOV •C6)»8TPPA*£ 

ADD #2,#K6 

MOV TXVTR,Xl 

STPPAl MOV «OPEN,Cm 

MOV TXLVL, CD ♦ 

RTI 

I 

I8UBR0UTINE TO OUTPUT ASCII MESSAGE ON TELETYPE PRINTER. 

TYPS *'— — 



IMOVE VECTOR AOOR TO 8TPPA+2 
ISET UP EXIT 

ISET VECTOR AD0RE8S, 
f SET PRIORITY 

ffXIT. 



003242 TYPCI 



176022 TYPDI 



003242 TYPFI 



003306 



I SAVE Rfl 

I SET ADDRESS, THAT CONTAINS MESSAGE ADDRESS. 
ISET UP EXIT. 

I ADDRESS OF MESSAGE TO Hi, 
ISET CHARACTER 
ICHESK FOR*P«CHARACTER 
I BRANCH IP NOT"**. 

I RESTORERS . 
ITERNINATDR CHAR. DONE. EXIT. 
ICHECK FOR*X", 
I BRANCH SP«X« 
ITYPE CHAR IN TYPOAT 

fOUTiUf CHARACTER TO PRINTER 
J WAIT POP DONE FLAG, 

IEXIT 

I HOVE CARRIAGE RETURN CODE TO TYPDAT 

IGO fiH CHAR. 
IMOVE I.P CODE TO TYPDAT, 
IGO TYPE CHAR. 

BR TYPA 
TYPOATI OPEN 

I3UBR0UTINE TO OUTPUT A SERIES OF ASCII HEBSAOES ON TELETYPE PRINTER 

ISET ADDRESS THAT CONTAINS MESSAGE ADDRESS 
I UPDATE TO NEXT MESSAGE ADDRESS 
I ADDRESS OP MESSAGE TO TYP8B 
ICHECK POR TERMINATOR 
I BRANCH IF NOT TERMINATOR. 

{RESTORE R0 
ITERMXNATOR, EXIT 

ICALL ON TYP SUB TO TYPE MESSAGE 
I ADDRESS OP MESSAGE GOES HERE 
IGO PROeESS NEXT MESSAGE 



MOV 


%0 fSAVRg 


MOV 


*XA, X0- 


ADD 


#§i#X6 


MOV 


#80,80 


MOVB 


(0)*, TYPDAT 


eMP@ 


#4§§,?VPD*T 


@NE 


TYPC 


MOV 


8AVR0.X0 


RTI 




CMPB 


#43, TYPDAT 


BEQ 


TYPP 


JSR 


XT, TYPO 


BR 


TYPA 


M0V8 


TYPDAT, #TPB 


TSTS 


•TPS 


BPL 


• •4 


RTS 


XT , 


MOVB 


#15, TYPDAT 


JSR 


XT, TYPO 


MOVB 


#t«,TYPDAT 


JSR 


XT.TYPD 


BR 


TYPA 



TYP8I 


MOV 


X0,SAVRS 


TYPSAAI 


MOV 


#X6,K0 




ADD 


«ei#x« 




MOV 


AX0,TYP8B 




CMP 


#*i,TYP8B 




BNF. 


TYPIA 




MOV 


8AVR0,X0 




RTI 




TY^SAl 


MOV 


8AVR«,X0 


TYPE 




TYPSBl 


OPEN 






BR 


YYPSAA 


3AVR01 


OPEN 




I8UBR0UTINE TO 


READ OCTAL 



OZDLBB 


MACYit 


?T (657) 


1 7-NPV«75 


ia:50 page 


2? 














00331 a 


»1 16U6 




BDOCTl 


MOV 


982 


9)033 1 6 


0100U6 






MQV 


983 


003320 


m<na6 






MOV 


98a 


003352 


0050 011 




INOATl 


CLR 


985 


003324 


5*05037 


001324 




CLR 


986 


003330 


105777 


17^664 


RDOATf 


TS7B 


98? 


003334 


100375 






BPL 


988 


003336 


1 17746 


175660 




M0V8 


989 


003342 


042*7 1 6 


000200 




BIC 


990 


003346 


105777 


175652 


ECDATI 


TSTB 


99i 


003352 


100375 






BPL 


992 


003354 


1 11677 


175646 




MOVB 


995 


003360 


122716 


000015 




CMPB 


99a 


003364 


001432 






BEQ 


995 


003366 


122716 


000177 




CMPB 


99fc 


003372 


001423 






sera 


99? 


003374 


122716 


000060 




CMPB 


998 


003400 


003020 






BGT 


999 


003402 


122716 


000067 




CMPB 


1000 


003406 


9102415 






BLT 


1001 


003410 


005237 


001324 




INC 


1002 


003414 


022737 


000067 M 


J1324 


CMP 


1003 


003422 


003407 






BU 


100a 


003424 


006301 






ASL 


1005 


003426 


006301 






m 


1006 


003430 


006301 






ASL 


1007 


003432 


162716 


000060 




SUB 


1008 


003436 


062601 






ADD 


1009 


003440 


000733 






BR 


1010 


003442 


104000 




rreadi 


TYPE 


1011 


003444 


R13232 






DTERR 


1012 


003446 


005726 






T8T 


1013 


003450 


000724 






BR 


1014 


003452 


010166 


000010 


RETRNl 


MOV 


1015 


003456 


005726 






T3T 


1016 


003460 


012601 






MOV 


1017 


003462 


012600 






MOV 


1018 


003464 


00020? 






RT8 


1019 








1 




1050 








J8UBR0UTIN5 TO 


1021 


003466 


011637 


003526 


OLVl 


MOV 


1022 


003472 


062716 


000002 




ADD 


1023 


003476 


017746 


000024 




MOV 


102a 


003502 


001407 






BEQ 


1025 


003504 


012746 


000226 


OLYAI 


MOV 


1026 


003510 


005316 




OLYBI 


DEC 


1027 


003512 


001376 






BNE 


1028 


003514 


005726 






P0P8P 


1029 


003516 


00531 6 






DEC 


1030 


003520 


001371 






BNg 


1031 


003522 


005726 




OLYCI 


popsp 


1032 


003524 


000002 






RTI 


1033 


003526 


000000 




DLCNTl 


OPEN 


103a 








? 




OZDLBB 


MACY11 


27 C657) 


17«N0V»7§ 


ifiis® page 





rsp) ,-csp) 
»B.-csPi 

xi,*csp) 
xi 

COUNT 

PTKS 

RDOAT 

PTKB.«(SP5 

SBIT7, (BP) 

#TP8 

ECOAT 

(SP) ,#TPB 

#15, (SP) 

RETRN 

• 177, (BP) 
RREAO 

• 60* (SP) 
RREAO 

• 67, (8P) 
RREAO ' 
COUNT 
#67, COUNT 
RREAD 

%l 
%i 
XI 

#6i, CSP3 
(8P)*,X1 

RDBAT 



(SP) ♦ 
INDAT 
X1,10(8P) 

(SP)* 
(8P)*,X1 

(SP)*,1S0 
PC 



I M AKE ROOM FOR DATA WORD 
ISAVE R0 
ISAVE Rl 

I CLEAR DATA WORD 

ISET NO, OP 0I0IT8 * 

I TEST TTY READ STATUS 

IWAIT 

I PUSH DIGIT ON STACK 

I TEST TTY PRINT STATUS 

IWAIT 

IECHO CHARACTER 

IIS IT A TERMINATOR? 

IBR IP YES 

IIS IT A RUBOUTt 

IBR IF YES 

IIS IT AN OCTAL OIOITT 
IBR IP NO 
I TEST AGAIN 
f BR IP NO 

IINC NO, OP DIGITS 
IMORE THAN SIX DIGITS? 
IBR IP YES 

ICLEAR LOWEST THREE BITS 
IOP DATA WORO 

ICONVERT TO BINARY 

I ADD DIGIT TO DATA WORD 

IGET NEXT DIGIT 

ITELL USER ABOUT ILLEGAL CHARACTER 

IGET RIO OP ILLEGAL CHARACTER 

f 8TART SUBROUTINE AGAIN 

I STORE DATA WORO ON STACK 

I INC STACK POINTER 

f RESTORE Rl 

IRESTORE R0 

IRETURN 



DELAY A SPECIFIED NUMBER OP MILLISECONDS 
»X6,DLCNT IGET DELAY COUNT ADDRESS*. 

f SET UP EXIT ADDRESS 
•0LCNT,-(6) IDELAY COUNT TO STACK 

DLYC 

#2S6,»(6) 11 MSEC COUNT TO STACK 

PX6 IDECREMENT 1 MSEC COUNT 

DLYB IBRANCH IP NOT 0. 

IZERO, UNCOVER MSEC8. COUNT. 
*%ft IDECREMENT IT 

DLYA IBR IP NOT OONE DELAYING 

IOONE 

IEXIT. 

ICONTAINS MILLISECONDS COUNT ADDRESS. 



OZDLBB. SRC 



1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
104? 
104S 
1049 
1050 
1031 
1052 
1053 
1054 
1055 
1056 



003530 
003532 
003534 
003536 
003540 
003542 
003544 
003550 
003554 
003556 
003S62 
003564 
003566 
003570 
003572 
003574 
003576 



1040U 
013500 
012501 
012502 
060201 
010003 
002703 
062703 
1 10341 
042700 
006000 
006000 
006000 
005302 
001363 
104012 
000205 



IOCTAL TO ASCII CONVERT ROUTINE 
OACNVt 8AVREG 



177770 
000060 



MOV 
MOV 
MOV 
ADD 

OACNVAI MOV 
BIC 
ADO 
MOVS 

BIC 
ROR 

RQR 
ROR 
DEC 

SNg 

R8TRI8 
RTS 



C5)+»X1 
(S)*,X8 

xg.si 

%$,%% 

•t?7T?0,X3 
•60#X3 
X1,»C1) 
*7,X§ 

X0 

xa 

x@ 

X2 

OACNVA 
XI 



ISAVE REGS. 

IGET OCTAL VALUE'. 

IGET DESTINATION ApOR. 

I GET CONVERT COUNT. 

IOEVELOP AODR TO STORE 1ST CHAR. 

I ISOLATE LEAST SIGNIFICANT DIGIT . 
ICONVERT DIBIT TO ASCII. 
ISTORE ASCII CHARACTER. 



I DONE ALL QUITS? 
IBRANCH IP NOT OONE. 
IRESTORE REGS. 
I DONE. EXIT. 



I SUBROUTINE TO GENERATE PARITY ON DATA FOR 3,*,T.6 LEVEL CODE. 
IPARITV BIT IS THE MSB OP THE CHARACTER PARITY CAN BE EITHER 

ICVgN OR ODD 

I0ENERATE8 ODD/fgVgN PARITY s 



\ 



OZPUBB MACY1 1 ?7(657) 
OZOL.8B.SRC 



I7»N0V»?5 U l5fl PAGE ?4 



j 0§7 








1058 


$03600 


032737 


0)0280 


1 059 


«3 SJ -3 U ¥i D 


950 1411 




i ratf 


r? «y ^ u 1 w 


B32737 


5100 1 00 




In *J .1 O £ u 


00 \ fl?7 




1 062 


kj It? 3 w c 


PS3P737 


4 


i 063 










a 01 "8 *> fit 

KJ (p 3 O .3 Ifl 








NlM 


0127 37 


000200 


1066 


in \fl J V *♦ (fl 


0127 37 


000007 




a 01 t *» ik & 


W «* C r la 1 


1 r ? O w KJ 


1068 


00365? 


00P1S} 33 




106? 










003662 


1 27 37 


000005 


1 017 1 
IB' 1 


(ova -JD ' %> 


042701 


177740 




not tt*f a 


Iri r J W *t c C 




1 T 3 


003676 


0127 37 


000 1 00 




a 01 "? ? 01 a 

10 S3 J 1 (0 «♦ 


012737 


000006 


j07g 


0037 1 2 


042701 


1 77700 






(71 CI CI a 1 1 

ItJ v rJ M 4 4 




1 0?7 


UP 1U af f C IP 


012737 


000020 


1078 


003726 


012737 


000004 


1079 


003734 


042701 


177760 




003740 


000400 




1081 


003742 


0101 37 


001326 


1 082 


IP v ») 1 **w 


006001 




1 083 


003750 


103415 




1004 


003752 


005337 


001314 


1083 


003756 


001373 




1036 


0)C)T760i 

V ftl 3 1 w ftl 


032737 


0100040 


1087 


Ci a Y 7 A 

VI 10 J r OO 


001 403 




108s 




06373? 


001322 


1039 


003776 


013701 


001326 




«3 ** v w C 


000207 




1 091 


004004 


063737 


001322 


1 092 


004012 


000757 




1093 








1094 








1 095 


0040 1 4 


1 04000 




1096 


00401 6 


014256 




1097 


iy «J ■* \w C l£ 


004737 


00331 4 


109S 


004024 


1 2601 




1099 


004026 


042701 


177407 


1100 


004032 


006201 




H01 


004034 


006201 




1102 


004036 


010137 


001372 


1103 


004042 


012703 


001200 


1104 


004046 


012704 


000004 


1105 


004052 


016102 


010432 


1106 


004056 


010223 




1107 


004060 


062702 


000002 


1108 


004064 


005304 




1109 


004066 


001373 




1110 


004070 


0161DI1 


010334 



DZDLBB MACY11 27(6573 
OZOLBB.SRC 



iiii 

1112 
1113 
1114 
1115 
1116 
1117 
1113 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
U29 
1130 
ItSi 
U32 
1133 
1134 
1135 
1136 
113? 
1138 
U39 
1140 
llfli 
1148 
1143 
H44 
1145 
1146 
U47 
1143 
1149 
1150 

h5i 

iisa 

1133 
1154 
1153 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 



001362 
001362 
001362 



001322 
001324 



001322 
001324 



001322 
001324 



001322 
001324 



001374 
001326 



004074 


010123 




004076 


022121 




004100 


005723 




004102 


010113 




004104 


02273? 


®000@5 


004112 


001001 




004114 


000203 




004116 


006237 


001372 


004122 






004134 


104000 




004136 


013665 




004140 


000205 




004142 


10503? 


PI01334 


004146 


012300 




004130 


012537 


9)01364 


004154 


113720 


1334 


004160 


103237 


- -334 


004164 


00533? 


aiA l 364 


004170 


001371 




004172 


000209 




004174 


104011 




004176 


012301 




004200 


012502 




004202 


012503 




004204 


112122 




004206 


005303 




004210 


001375 




004212 


104012 




004214 


000205 




004216 


104011 




004220 


012700 


004374 


004234 


013501 




004226 


01251? 


004304 


004232 


01253? 


004306 


004236 


012702 


004362 


004242 


01273? 


000005 


004250 


012237 


004360 


004234 


004737 


004314 


004260 


00533? 


004334 


004264 


001371 




004266 


163700 


004306 


004272 


010037 


004331 


004276 


00433? 


004174 


004302 


000000 




004304 


000000 




004306 


000000 




004310 


104012 




004312 


000205 





i7«N0V«?5 14150 



001240 





BIT 


#8IT7,CARMSK 


1 TEST LSB CHAR LENGTH 






BEQ 


EIGHT 


1 CHAR 13 8 






BIT 


*BIT6, CARMSK 


1 TEST MSB CHAR LENGTH 






BEQ 


SEVEN 


1 CHAR LENGTH 18 7 






BIT 


#BIT5 , CARMSK 








BEO 


SIX 








BR 


Pi VI 






EIGHT i 


MOV 


#BIT7, PARBIT 


1 pi kpg BAD T T V ITT T M BiflBPD 


rUOI I ION 




MQV 


#7 , COUNT 


iSPT UP IIHT ATV PnilMTVDaT 






BIG 


w 4 r r ©low 1 it i 


f M A AM tWW 1 IKII ISBfn B ? Y ft 
ifton UP" UNU9BU D I TO 






BR 


DOIT 


FUU alMO UCNCN ATC PARITY FOR 


8 




MQV 




irUAbC rRRi I T BIT IN P«DP|n 


Pu8 1 1 ION 




MOV 


#5, COUNT 


I SET UP RflTATP milMYPQaK 

fowl w " rvwlTClCl UUU^ 1 wrl^«9 






01c 


#177740, %1 


f MASK HP? iikii KFn rtta 






BR 


DOIT 


inn iMn rpmfii a rr 9 adttv rna 




SEVEN f 


MOV 


$B!T6,PARB!? 


fPLACE PARTTV BTT TKI panpER 


rUOl i A Unl 




MQV 


fl 6f COUNT 


| SPT UP BHTATP rnil(JTPBa<> 






SIC 


#177700,%! 


f MASK OFF UNUSED BITS 






BR 


DOIT 


IRQ AND GENERATE PART.TV POP 


•f 


FIVgl 


MOV 


•BIT4, PARBIT 


1 PLACE PARITY BIT IN PROPER 


pnsrTTnM 

"uoji i i un 




MOV 


#4« COUNT 


fSET UP ROTATE COUNTERS 






BIC 


#i???6@,Xl 


f MASK OPP UNUSED BITS 






BR 


DOIT 


IGO AND GENERATE PARITY FOR 




DOITS 


MOV 


%1,SAVE 


I SAVE DATA 




AGAIN 1 


ROB 


Si 


IROTATE DATA 






BC8 


ADD1 


fXF CARRY SET ADS fM PARRIT 




RTNl 


DEC 


COUNT 


IDECRIMENT COUNTER 






BN£ 


AQAXN 


iNOT DONS DO XT AGAIN 






BIT 


#BIT3,8RT 


1 DONE EVEN OR ODD PARXTYf 






BgQ 


DONE 


1 IF gVEN FXNX8HE0 






ADO 


parbit»save 


HP odd ADD |N ANOTHER 1 




DONE ! 


MQV 


SAVE, XI 


1 PLACE DATA * PARTTV RATK Tkl 


1 Rl 




RTS 


7 


1 AND IXXT 




ADDll 


ADO 


PARBXTf SAVE 


IAOD PARBXT TO DATA 






BR 


RTN 


IRETURN TO COUNTER 




ISU8R0UTXNE TO 


SELECT LINE AND 


LOAD VICTOR ASSIGNMENT 




LXN8EL1 


TYPE 










LDLINE 










JSR 


PCiRDOCT 


1 GET INPUT 






MOV 


l5P)*,*l 


ILQAD Rl 






SIC 


#S?74i?,ll 


IMA3K OFF ALL SUf LINE BITS 






A3R 


%% 








&8R 


%% 








MQV 


XI, TEMP 


f SAVE LINE # 






MOV 


#R»C3R,%3 


f LOAD ADDRESS OF REGISTERS 






MOV 


#4,14 


ISET UP COUNTER 






MOV 


RC8RCi),X2 






LINSA1 


MOV 










ADD 










DEC 


14 








BNE 


LIN8A 








MOV 


VECTAB(1),X1 


t GET LINE VECTOR ADDRESS 




page \ 


35 










MOV 


XI, (33* 


f LOAD INTO PROG, RXVTR 






cmp 


(l)*i (!)♦ 


f ADD *4 TO RXVTR TO a TXVTR 






T3T 


C3) + 


IPOXNT TO PROG TXVTR 






MQV 


XI, (3) 


f LOAD INTO PROG TXVTR 






CMP 


i§,P^@NUM 


I RUNNING PROGRAM # 5 






BNE 


.♦4 








RTS 


S 


f RETURN TO PROQ § 






A8R 


?|MP 


IPOSXTXON 






CNVOA 


TEMP,?LINO,t 








TYPE 




ITYPE LINE # THAT 






AL1NEX 




IWAS CALLED 






ST8 


S 







ISUBROUTXNE TO 
INPILI CLRB 



PILL1 

FILLAI 



MOV 
MOV 
MOVB 
INCB 

ose 

BNE 
RTS 



LOAD BINARY COUNT PATTERN INTO OUTPUT 1UFFER 

NUMBEfl f INITIALIZE BINARY COUNT 

C3)+iX0 IGET ADDNE88 

CS)*iCTRD IGET OOUNT 

NUMBER, fBJ* f LOAD ADDRESS WITH BINARY COUNT 

NUMBER MNO. BINARY COUNT 

CTRD fDEC. COUNT 
F1LLA 

S IEXIT 



iSUBRpUTINE TO MOVE A VARIABLE NUMBER OF BYTES. 



BMOVEt 3AVRE6 

MOV (S)t,X1 

MOV (9>y,X8 

MOV IS^iXS , 

BMOVAI MOVB (3)4 

dec xs 

BNg BMOVA 

RTS US 

f 

IBXNARY TO DECIMAL ASCII COMVfUT 8UB.P0UTINE. 



fSAVr R€S$ a 
fGET w FR0H»A0DRE8B 
I GET ff T0** ADDRESS 

I SET; COUNT 
IHOVE! BYTE 
IDSCflSpiNT COUNT 
f BRANCH IF NOT DONE, 

wsTopis mm. 

f DONE; fJCXT 



BDCNVi 



BOCNVAl 



8AVRE8 

MOV 
HOV 
MOV 
MQV 
MQV 
MOV 
MOV 

m 

dec 

BNf 

sua 

t MOV 
JSR 

8DCNVBI OPEN 
BDCNVCI OPEN 
BDCNVOI OPEN 

RSTRfg 
RTS 



#DECyAL,X0 

CS)t»BDeNVC 

C5l+»aOCNVD 

#ADTENP,«e 

0S»CNVCTR 

(8)*»TINPWR 

XT.SUBTfN 

PN^CTR 

BDCNVA 

BDCNVD,X0 

X0,BDONVB 

IS.iMQVE 



II 



I SAVE Rg@8» 
f SET UP ADDP> TO STORE DECIMAL ASCII IN R0 
iBINAiV VALUE TO Rl. 
I DESTINATION. ADD* TO BDCNVC, 
f COUNT TO aOCNVD, 
! ADDS OF, TEN POWER STRING TO Rl, 
f SET. UP $M 3 POKER CONVERSIONS, . 
fMtJVf POME* OF TEN VALUE TO TfNPWR. 
iPStfOiM CONVERSION 
f DONE 9 CONVERSIONS*. 
I BRANCH tf NOT YET 3. 
f BET UP ADDR TO MOVE DECIMAL 
IDATA fRON« 

IMOVE DECXNAL DATA TO DESTINATION. 
I8RC ADDR. 

IDES? ADDR « 
I COUNT; 

f RESTORE REGS. 
IVES, EXIT. 



DZDL8B 


MACYll 


27 (f>57) 


1 7 • N Q V 1 


nZDLBB.SRC 






1 1 65 


004 3 I a 


P05&17 


fflf)43?6 


i |6fe 


00S320 


i 63701 




1 1 67 


004324 


! P>3a&3 




1 1&8 


004336 


P"05237 


$043?6 


i 1 69 


$04312 


$0077? 




i 1 7@ 


004334 


06370U 


PI04360 


||? l 


004340 


f*6?737 


W00060 


i l?g 


004346 


1 137?0 


00A356 


1 1 73 


004352 


000207 








000000 




1 1 ?5 


004356 


000000 




1 1 ' 6 




000000 




I iff 

II ' I 




023420 




till 

U'O 


« IP *• J O *» 


001 750 




1 1 79 


9J V ■# JD O 


000144 






004370 


000012 




1 1 a 1 


004372 


000001 




lldS 


004374 


040 


040 


1 1 S3 


004377 


040 


040 


1 i 84 








1 1 85 


004402 


1 04000 




H&6 


004404 


013055 




1 1 S T 


004406 


004737 


003314 


1 1 88 


804412 


1 2617 


00! 374 


i 1 89 


004416 






1 1<)0 


004430 


1 04000 




1 1 9 1 


004432 


013355 




1 1 ^ 2 


004434 


012737 


i 77400 


i 1 93 


004442 


032737 


000002 


1 i 94 


004450 


001413 




1 1 9g 


004452 


012737 


177700 




t3 KJ *• t B 10 


032737 


000001 


1 1 97 


004466 


001403 




i 1 98 


004470 


&12737 


! 77740 


1 1 9"? 


004476 


000207 




1200 


004500 


032737 


000001 


1201 


004506 


001773 




1202 


0045 1 


012737 


1 77600 


1203 


004516 


000767 




1204 








1205 








1206 


004520 


01 3737 


! 77776 


1207 


004526 


012737 


000340 


1203 


00453a 


006237 


001 336 


1209 


004540 


006237 


001 336 


1210 


004544 


006237 


001336 


1211 


004550 


042737 


177740 


1212 


004556 


013737 


001336 


1213 


004564 


011637 


6101 342 


1214 


004570 


00453? 


003330 


1215 


004574 


001340 




1216 


004576 


012314 




1217 


004600 


000006 




1218 


004602 


004537 


003530 


dzdlbb 


MAC Y 1 1 


27 (657) 


1?»N0V> 


DZDLBB 1 


, SRC 






1219 


lu ¥7 *# O X} O 


001342 




1 220 


0046 1 


012346 




122l 


00461 2 


000006 




1222 


00461 4 


104000 




1223 


00461 6 


1224? 




1224 


004620 


$00000 




1 225 


004622 


000137 


001 422 


1226 








1227 








1228 




011637 


C01340 




mo mo 3c 


022626 




1 230 


004634 


01 1637 


001342 


123l 


004640 


162717 


5100004 


1232 


004646 


005737 


001353 


1233 




001746 




1 234 


004654 


013737 


001340 


1235 


004662 


162737 


000004 


1236 


004670 


013737 


001340 


1237 


004676 


005037 


001350 


1238 


004701 


000002 




1239 








1240 








1 24 1 


004704 


010137 


001200 


124g 


004710 


062701 


000002 


1243 


0047 1 4 


01013? 


001202 


1244 


004720 


062701 


000002 


1245 


004724 


010137 


001204 


1246 


004730 


062701 


000002 


1247 


004734 


010137 


001206 


124g 


004740 


00020? 




1249 








1250 








1251 


004742 


01?73? 


174232 


1252 


004750 


032737 


02085)0 


1253 


004756 


001046 




1254 


004760 


04277? 


000146 


1235 


004766 


005777 


174210 


1256 


004773 


104000 




1257 


004774 


013251 




1258 


004776 


017737 


174176 


1259 


003004 


03273? 


040000 


1260 


005013 


001771 




126i 


005014 


05277? 


000006 


1262 


305083 


104016 




1263 


009024 


023480 




1264 


005026 


0l??3? 


174146 


1265 


005034 


0057?? 


174142 


1266 


005040 


03273? 




1267 


005046 


001003 




1263 


005050 


104015 




1269 


005052 


01337? 




1270 


005054 


000741 




1271 


005056 


W17737 


174116 


1272 


005SI4 


0017?? 


174112 



004356 



040 
040 



SUBTFNt CLP 
SUBTNAl SUB 
ACS 

INC 
BR 

3ubtn8i ado 
add 

MOVB 

CNVCTRI OPEN 
DIGIT! OPEN 
TENPWRI OPEN 
AOTENP! 10000, 

1000 9 

100. 

10. 

1 

0CCVAL1 .BYTE 0401040,040,040,040,040 



niciT 

T£NPWR,%| 

SUBTN8 
DIGIT 
8UBTNA 
TENPWR.Xl 

#60, DIGIT 
DIBIT, £03* 
X7 



I CLEAR DIGIT 

I SUBTRACT TEN POWER PROM BINARY VALUE, 
IBRANCH IF UNSUCCESSFUL SUBTRACTION, 



I RESTORE SUBTRACTED VALUE * 

f CONVERT (DIGIT) TO ASCII 

IMOVE ASCII CHAR TO DECVAL FIELD* 
IIXX? e 



001362 
001374 

001362 
001374 

001362 

0013T4 

001362 



601336 
177776 



001336 
001340 



ISUBROUTINE TO SIT 
SETPARl TYPE 

SELFAR 

J3R 

MOV 
CNVOA 

TYPE 
PARMT8 
MOV 
BIT 
BEQ 
MOV 
BIT 
BEG 
MOV 
RT8 
BIT 
8E8 
MOV 
BR 



CHARACTER LENGTH PARAMETER 

ITYPEI SELECT PARAMETERS*. 



TBIT1I 



PAREXl 
3TPARAI 



PCiRDOCT 

(8P)*,SR? 
8RT, APARM , 3 



#i?740§ 9 CARM8K 
•BIT1,8RT 
8TPARA 

•177700, CARMSK 
#BIT0,8RT 
PAREX 

#177740, CARM8K 

%7 

#B1T0,SRT 
$TPARA»t 
#1?7&§@, CARMSK 
PAREX 



IGET INPUT 



MET CHARACTER MASK TO A BITS, 

I8EE IF 8R BIT 1 IS SET, 

IBRANCH IF NOT SET. 

ICHANGE CHAR MASK TO 6 BITS. 

I8EE IF 8R BITS IS SET. 

IBRANCH IF NOT SET. 

ICHANGE CHAR MASK TO 5 BITS. 

IEXXT, 

I SEE IF 8R BITB IS SET*. 

I BRANCH IF NOT SET". 

ICHANGE CHAR MASK TO 7 BITS, 



IIRROR TRAP HANDLER • TYPE TO 



ERTPl 



MOV 

MOV 

A8R 

A8R 

AIR 

BIC 

MOV 

MOV 

JSR 

TOPC 

MTO 

b 

JSR 



PSW,OLOPS 
#PRTY7,P8W 
0L0P8 
OLDPS 
OLDPS 

#177141, OLOPS 
OLDPS, TOPC 
•X6#FR0MPC 
X5,0ACNV 



XS,0ACNV 



AND FROM WHERE ERROR TRAP OCCURS 

ISAVI OLDPS 



l?»N0V ra ?5 Ut50 PAGE I? 



FROMPC 

MFROM 

6 

TYPE 

mterr 

HALT 
JMP 



START 



001340 



001214 
001340 
001210 



I 

IMAPVSC - MAP VECTOR VECTOR 
MAPVECI MOV «X6,T0PC 

POPSPi 
MOV 



SUB 
TST 
BE® 
MOV 
SUB 
MOV 
CLR 
RTf 



$86,FReMPC 
#4, TOPC 

FMAP 
ERf PA 

TOPCTXVTR 
#4, TOPC 
TOPC/RXVTR 

FMAP 



OR REPORT ERROR DEPENOINB ON FMAP FLAG 



?NOT WAF?SN8# SfPORT ERROR 
ISTORI VECTOR 



SFORMAD * FORM DEVICE AT AODJtttS 
FORMADi MOV XlgBXgltt 



ADO 

MOV 
ADO 
MOV 
ADO 
MOV 
RT8 



• 8. XI 
Xl.RXBUF 
MtXl 
XtiTXCSR 

•t»xi 

Xl.TXBUF 
X? 



B0137B 



ISUBROUTINE TO MAKE LINE CONNECTION. 



174212 LtNCAl 



LiNesi 



001378 
001370 

174156 

•01370 

§0l3?i 



©§1370 LINCFl 



MOV 


9RXCSRiRXC8RT 
#a.XU3»RXCt*T 


BIT 


INf 


LINEUP 


B2C 


#l§§*#RXeSR 


TST 


•RXBUF 


TYPE 




MAKCON 




MOV 


ftses^fRxesRT 


BIT 


*BXTU,RXe3Rt 


0E@ 


LXNCB 


BIS 


il,tiXS§R 


DELAY 




1§80S 9 




MOV 




TST 


PRXiUF 


BIT 


#B|TI3^XC8R? 


§NI 


LINCF 


ERRRX 




LINEHM 
BR 


LXNCA 


MOV 




TST 


fRXSUF 



IYES. 1$ CLEAR TO SEND MP 
ITES CONNECTION IS MADE, 

teLtjWt It BIT AND OTR, RO TO 8ND 

tCLfAR DONE FLAG 

ITYRE 

I 'MAKE LINE CONNECTION' 

1 0X0 YOU RING 
100 WAIT FOR RING 
I SET . DTR , R8 TO SND 
f WAIT 10.8ECON&1 FOR 

I CLEAR ?S SEND 

ICLEAR DONE 

1X8 pLEAR TO SEND UPf 

I YES, GO TO L1NCP 

IN0. PRINT ERROR MESSAGE 

I 'CLEAR TO SEND NOT SET' 

ISTART OVER AGAIN 

ICLEAR ALL FLAGS 

f ANO OONE 



DZDLBB MAC Y i 1 ??C&57} 17-KJ0V»75 |fll50 PaGF ?» 
0Z0UB8.SRC 



127 3 


009070 


1 040910 




Ufa 


005072 






IC'3 




00 20 5 




1 27fc 








I C ' 7 






_ 


1278 


005102 


012702 




1 £ ' V 


005 1 06 


«if 31 * 


.Iras f 4 a 


1 280 


005 1 1 2 


062701 




1 to i 


005 116 


005302 




1 282 


0051 20 


001 37g 




1283 


0051 22 


0002517 




1264 








1265 








12*6 


005 124 


000240 




1267 


005126 


010037 


001330 


1268 


005132 


006300 




1269 


005134 


1 6037 


010411 


1290 


0051 42 




1 74032 


12'1 


0051 50 


100570 




4 ids 


005152 


1 05737 


00 1 370 


IjQf 

l C * J 


005 156 


00 1 002 






005 1 60 


1 04003 






005162 


R00002 




1296 


005164 


020037 


001404 


129? 


005170 


00 1 020 




4 3Ql 


0051 72 


0057 37 


001412 




005176 


001 403 




1 3B0 


005200 


005770 


018530 


4 "?0I 4 


005204 


000002 




1 302 


005206 


1 17077 


010530 


1303 


0052 1 4 


005237 


001 376 


1304 


005220 


022737 


017024 


1 305 


005226 


00 1 430 




1306 


005230 


000002 




1 307 




1 17077 


G1R338 


1 306 


005240 


005237 


001400 


1 309 


005244 


022737 


015066 


1310 


005252 


002401 






005254 






1 3 1 2 


005256 


022737 


000002 


313 


005264 


001405 






005266 


5)22737 


01 5220 


315 


00527a 


001405 




1316 


005276 


000002 




1317 


005300 


052770 


000100 


1318 


005306 


000002 




1319 








1320 


005310 


000240 




1321 


005312 


012737 


000001 


1322 


005320 


012702 


015054 


1323 


005324 


<M270S 


014710 


1324 


005330 


01023? 


001400 


1325 


005334 


B2273? 


0000*1 


1326 


005342 


001015 





TYPE ITVPE MESSAGE 

LINMAD ICOMNECTION TS MADS' 

LINEUPJ PTR 5 IEXIT LINE CONNECTION ROUTINE WITH 

I8UBR0UTINF TO OVERLAY <CRLF> IN DATA PATTERN (EVERY 72. ND CHAR) 



OVRLAYI 
OVRLYAI 



MOV 
MOV 
MOV 
ADD 
DEC 
BNE 
RTS 



#0UTBUF,X1 
#14.,X2 
#105215, (13 
072., XI 

%2 

OVRLYA 

7 



IGET OUTBUF ADDRESS 
I GET COUNTER 
I INSERT CR&LF 
IAOO OFFSET 
I DONE? 

fEXIT 



f RECEIVER INTERRUPTS COMMON HANDLER 

RI8RI 



X0.LINE 
X0 

RCSRCiJ.RXCSR 
PRXC8R,RXC3RT 
DCERR 

RXC8&T' 
RI8RA 



X0, CALLED 
RI8RB 
MODEM 
RI8RAA 



NOP 
MOV 
ASL 

001200 MOV 
001370 MOV 

8MI 

Y8T8 

BNE 

ERROR 

RTI 

RI8RAI CMP 

BNE 
T8T 

BIO 
TIT 
RTI 

S?4i6g risraai MOVS 
XNe 

001376 CMP 

8E0 
RTI 

174140 RlSRBi MOVB 
INC 

001400 CMP 

8LT 
RTI 

001332 CMP 
BEQ 

001400 CMP 

RTI 

010616 RlSRiil SIS 
RTI 

ICHECK DATA CONFIGURATION 

SflSRCl 



IGET ADDRESS OF INTERRUPTING 0Lil»E*8 RC3R 
IGET C8R CONTENTS 
I CHECK INT 
f TEST DONE 

I FALSE INTERRUPT 
lEXIT 

IDID CALLED LINE INTERRUPT? 

f BRANCH IF CALLER INTERRUPTED 

ICHECK MODEM TYPE 

IBRANCH IF IBS 

f READ CALLED LINES DATA 



•RBUF(0).flNBUFP|8TORI CHARACTER IN INPUT BUFFER 
INBUFP f INCREMENT POINTER 

0INBUP*100.,INBUPPlHAVE 100. CHARACTERS BEEN RECEIVED? 
ISO CHECK 



RSSRC 

S>R8UFCi3»#BUFTP 
BUFFP 

#BUFF*lf 8S BUFFP 

3*4 



#i s CON?IG 

risrbb 

t#UFP#10§ 8 
&I8RC 



#8IT&,#Te8Pte§3 



OATA IF YES 
IEXXT IP NO 

I8T0RE CHARACTER IN INTERMEDIATE DATA BUFFER 

I INCREMENT POINTER 

I HAVE 10 CHARACTERS BEEN RECEIVED 

ifXIT 

I RUNNING CONFIGURATION if 



CHARACTERS BEEN RECEIVED? 
DATA IF YE8# OTHERWISE 



BurrpiHAvg i@s 

}G0 CHECK 

flXIT 

fstar? callers transmitter 
iew 



0001 001331 



MOV 
MOV 



CMP 
8NE 



ei.CTRO I INITIALIZE CHARACTER COUNT 

*BUPP,XB IPOINT R8 TO CALLERS RECEIVED DATA BUFFER 

#0UTBUF,X3 IRS R FIRST A0DRE88 OF OUTPUT DATA BUFFER 

X|,BUFPP I RESTORE CALLERS RCVO OATA BUFFER PTR 

#1, CONFIG ICHECK CONFIGURATION 
RI3RD 



DZDLBB MACY11 27(657) 
DZDLBB. SRC 



S?«N0V-?5 UIS0 PA§I f§ 



1327 


005344 


1 12337 


001360 




RISRCAI 


MOVB 


1326 


005350 


1 12237 


001336 






MOVB 


1329 


005354 


104004 








DATEHK 


1330 


005356 


005237 


001364 






INC 


1331 


005362 


02273? 


000101 


001364 




CMP 


133g 


005370 


001365 








BNE 


1333 


005372 


000137 


005476 






jnp 


1334 










1 




1335 










ICHECK 


DATA CON 


1336 


005376 


000240 






RlSPIDt 


NOP 


133? 


005400 


012704 


016660 






MOV 


133S 


005404 


010437 


001376 






MOV 


1339 


005410 


012737 


015034 


001410 




MOV 


1340 


005416 


013701 


001404 




RlSftDAt 


MOV 


1341 


005422 


016137 


010432 


001100 




MOV 


1342 


005430 


112337 


001360 






MOVB 


1343 


005434 


1 12237 


001356 






MOVi 


1344 


005440 


104004 








OATgHH 


1345 


005442 


013701 


001402 






MOV 


1346 


005446 


016137 


010432 


001300 




MOV 


1347 


005454 


112437 


001336 






MOVB 


1348 


005460 


104004 








DAJCHK 


1349 


005462 


003237 


001364 






1350 


005466 


022737 


(100101 


001364 




CMP 


1331 


005474 


001350 








b-nc- 


1352 


005476 


000240 






FINI8HI 


NOP 


1353 


005500 


013701 


001404 






M8V 


1354 


005504 


004517 


004146 








1355 


005510 


014710 








OUTBUF 


1356 


005512 


000144 








100. 


1357 


005514 


104000 








TYPE 


1338 


005516 


013350 








INBPAI 


1339 


005520 


052771 


000100 


010626 




BIS 


1360 


005526 


000240 








m 


1361 


005530 


000002 








RTI 


1362 










IERROR 


SERVICE^ 


1363 


005532 


032770 


100000 


§10330 


DCERR! 


BIT 


1364 


005340 


001402 










1365 


005542 


104013 










1366 


005944 


012337 








C8RAD0 


1367 


005546 


012737 


014710 


001406 


It IMP i 


MOV 


1368 


005534 


012737 


016660 


001376 




MOV 


1369 


003561 


013737 


015034 


001400 




MOV 


1370 


005570 


012737 


013014 


001410 




MOV 


1371 


005576 


032717 


040000 


001170 




BIT 


1372 


005604 


001005 








SINE 


1373 


003606 


004737 


006334 






ERRRX 


1374 


005612 


104015 








1375 


005614 


012337 








CSfADO 


1376 


005616 


000002 








RTI 


1377 


§03610 








PJISS&gUS 


CNVOA 


1376 


005632 


104090 








TYPE 


1379 


003634 


013713 








ALINE 


1380 


003636 


010037 


001484 






MOV 



(3)*»XHTDAT 
(3)*.REC0AT 

CTffD 

iSfifCTRD 

RISRCA 

FINISH 



#INBUF.X4 

U. INBUFP 

#BUP^tiUFPP 

CALLED, £1 

®CSRCU»RXCil! 

(3)*,XMTDAT 

CSJ^RECDAT 

CALUiR^l 
*C|Rtl),ffXC6ft 

C«54-,RIgDAT 

CTRD 

•101.CTRO 

R2SR0A 

' CALLED* Kl 
SiFILL 



iiif^ifeaRcn 



IGET TRANSMITTED CHARACTER 
IGET RECEIVED CHARACTER 
ICHECK OATA 

I INCREMENT CHARACTER COUNT 
IHA8 ALL DATA BEEN CHECKED 



IPOINT m TO CALLED LINES RECEIVER 
I DATA BUFFER ft INIT, POINTER 



iCOMPARr TRAN8KXTTE0 DATA WITH DATA 
iRECEIVKb BY CALLED LINE 

RAN8MJT 

tRECilVgS SY CALLER 



tBmStMBUMf) fTEDT 



#0UTBUF 8 9TBUFP 
#INBUP,INBUFP 

#@UFF,§UW 

#BITU*RXC8RT 

RI0REX 

7,0I8C0N 



LINEiTLINEdI 



HIT OUTPUT BUPFK* POINTER 

I8ET INPUT BUFFER POINTER 

I8ET INTERMEDIATE BUFFER POINTER 

I SET, POINTER FOR CONFIG il TRANSMITTER 

ICHECK RING INDICATOR 

IBRANQH IF RING 

I ERROR Stf » NO RING 



DZDLBB MAT V 1 1 ?Jlb*.y) 1 7„*av-7S ia j50 PAGE 30 

DZDUBB.SRC 



!38i 


005642 


00«717 


00331 4 






JSR 


PC # RDQCT 


• PVf f |LIP| t 1 f 

I Gr T INPUT 


1362 


005646 


01 1 637 


001412 








(SP) i MODEM 


IGFT MODEM TYPE 


i 303 




PH?7%7 


\ 77773 


001412 




Rir 


*177773,M00?M 


I 0a 1 03 i 4"202 


138a 


005660 


012637 


001332 






MOV 


(3P) *, CONFIG 




1385 


005664 


P14273? 


1 77774 


001332 




nit. 


*177774, CONFIG 




138b 


005672 


001042 








BNF 


RISRFC 


f GO TO SERVICE FOR CONFIG 1 OR 2 


1387 


005674 


004737 


006250 






JSR 


7,CONN 


? CONNECT LINE IF CONFIGURATION 


138B 


005700 


1 04000 








TYPE 




1 TYPE MESSAGE TO PRESS DATA 


ssa? 


005702 


014215 








BUTTON 




J BUTTON ON OAT A PHONE 


139 


005704 


104016 








DELAY 




1 WAIT FOR CARRIER 


1391 


0057(36 


023420 








10000. 




110 SECONDS 


13^2 


005710 


005770 


010530 






T8T 


#RBUP C05 


1 READ BUFFER TO CLEAR DONE 


1393 


005714 


032770 


020000 


01043? 




BIT 


#@ITl3e#RCSRC@5 


ITEST FOR CLEAR TO SEND 


1394 


005722 


001004 








BNE 


RI8RFB 




1395 


005724 


104083 








ERROR 




1 ERROR 1 DID NOT RECEIVE CLEAR TO SEND 


1396 














1 W I TM I N TIME ALLOTTED Ciw SEC.} 


139? 


005726 


004737 


006234 






J9R 


1 1 1 3C0N 




1393 


005732 


000002 








RTI 




J AND EX I T 


1399 


005734 


016037 


010626 


001204 


RI3RPBI 


MOV 


TCSR (0) , TXC8R 


IGET CALLED LINES TXC8R ADDRESS 


1400 


005742 


004737 


004402 






JSR 


7,8ETPAR 


1 LOAD USER PARAMETERS 


1401 


005746 


1 04000 








TYPE 




mTPE L I NC CONNECTION 


1402 


005750 


013427 








UNMAD 




f HADE 9 


1403 


005752 










CNVOA 


CONFIG, TCONFIO, 


2 


1404 


005764 


1 04000 








TYPE 






1405 


005766 


1 3456 








ACONFIO 






1406 


003770 


052770 


000100 


6 




BIS 


•8IT6,PTC8R(03 




1407 


005776 


000002 








RTI 




1 AND EX" 


1408 










1 








1409 










JHERE IF CONFIGURATION 1 OR 2 




1410 


006000 


104000 






RI8RFCI 


TYPI 




1 ASK USSR WHICH LINE HE IS 


1411 


006002 


014065 








WRU 




I DZ ALINQ ON 


1412 


006004 


004737 


003314 






JSR 


PCRDOCT 


IGET INPUT 


1413 


006010 


012601 








MOV 


C8P3*,Xi 


I8ET LINE # 


1414 


006012 


042701 


177740 






BIC 


#177740, XI 


fMASK UNUSED BITS 


1415 


006016 


""1013? 


001 330 






MOV 


*1,LINE 




1416 


006022 










CNVOA 


LINE,U»A,2 




1417 


006034 


1 04000 








TYPE 




IREPORT LINE * ON TTY 


1418 


006036 


014162 








UR 






1419 


006040 


006301 








A8L 


%% 




U20 


006042 


010137 


00! 402 






MOV 


Mi s CALLER 


f SAVE CALLERS LINE f 


.421 


006046 


004737 


006250 






JSR 


7, CONN 


ICONNECT CALLED LINE 


1422 


006052 


052771 


000002 


010431 




SIS 


iaiTi,#RBSRCU 


ISET DTR ON CALLERS LINE 


1423 


006060 


1 04000 








TYPf 




1 TYPE MESSAGE TO PRESS DATA 


\ 424 












BUTTON 




ION DATA PHONE 


1425 


006064 


504016 








DELAY 




IWAIT 10 SECONDS FOR CLEAR TO SEND 


1426 


006066 


023420 








10000. 




ISET AT CALLED LINE 


1427 


006070 


027071 


010530 


§10538 




CMP 


#SSUF€i3.#^0UFCl1 IREAD SUFFERS 


1426 


006076 


032770 


020000 


010432 




BIT 


#8ITlS»fRCSRCS5 


ITEST FOR CLEAR TO SEND AT CALLED LINE 


1429 


006104 


001007 








BNg 


RISRFF 




1430 


006106 


104003 








ERROR 




f ERROR I CLEAR TO SEND NOT SET AT CALLED 


1431 


006110 


004737 


006234 




RI8RFDJ 


JSR 


7,DI8C0N 


{DISCONNECT 


1432 


006114 


042771 


000006 


010432 




BIG 


#6 s #RC8Rft3 


ILXNE 


1433 


006122 


00000? 








RTI 




1 AND EXIT 


1434 


006124 


02271? 


000002 


§01332 


SZSRFFi 


CMP 


#1«E0NFI8 





dzdlbb 


MAC Y 1 1 i 


?7(657) 


l?«NOV»' 


DZDLBB.SRC 






1435 


006132 


001414 




1436 


006134 


022771 


010000 


1437 


006142 


001003 




1438 


006144 


104003 




1439 


006146 


000137 


006110 


1440 


006152 


P16137 


010432 


1441 


006160 


000137 


005734 


1442 








1443 








1444 








1445 


006164 


032771 


020000 


1446 


006172 


001003 




1447 


006174 


104003 




144S 


006176 


000137 


006110 


1449 


006202 


016037 


010432 


1450 


006210 


016137 


010626 


1451 


006216 


004737 


004402 


1452 








1453 


006222 


016137 


0104S2 


1454 


006230 


000137 


005734 


1455 








1456 








1457 


006234 


042770 


000006 


1458 


006242 


005770 


010432 


1459 


006246 


00020? 




1460 








1461 








1462 


0062-50 


052770 




1463 


006256 


000207 




1464 








1465 


006260 


000240 




1466 


006262 


006300 




1467 


006264 


105770 


010626 


1468 


006270 


100402 




1469 


006272 


104003 




14T 


006274 


000002 




1471 


006276 


005737 


001331 


147 2 


006302 


001420 




1473 


006304 


020037 


001402 




006310 


001015 




tt\ 


006312 


117770 


173072 


1476 


006320 


00523? 


001410 


1477 


006324 


022737 


esisgia 


1478 


006332 


001003 




1479 


006334 


042770 


000100 


1480 


006342 


000001 




1481 


006344 


117770 


173036 


1482 


006552 


00523? 


001406 


1463 


0063§£ 


00S71? 


001331 


1484 


006362 


001010 




uas 


006364 


§2273? 


i!66£»0 


I486 


006372 


001340 




UST 


006374 


012737 


014710 


1488 


006402 


000002 





14150 PAGE 31 



010432 



BEQ 
CMP 
BNg 
ERROR 

JJ4P 

RISRPE8 MOV 
JMP 



010432 



001200 
001204 



§01200 



010411 



RI8RFG 

#sma*#ResftCi3 

RI8RFE 
RISRFD 

$CSR CD ,RKCSi 
RISRFS 



icheck thnmm at callers lini 



IHERE IF CONFIIURATION t 



RfSRPSI BIT 
BNE 
ERROR 
JMP 

RISRFHI MOV 

MQV 
JSR 

MOV 

JMP 



•BITl3##RCSR(n 

RI8RPH 

RISRFD 

RC8R(03,RXC8R 
TC8R(t),TXC8R 
7,8ETPAR 



RCSRCl) 

RI3RFB 



f ERROR I NO CARRIER AT CALLERS LINE 
180 DISCONNECT LINES 

IGO BIT PARBMETER8 AND ENABLE 
ICALLED TRANSMITTER AND EXIT 



ITIST CALLERS CLEAR TO SEND 

I ERROR 1 NO CTS AT CALLERS LINE 
180 DISCONNECT LINE AND EXIT 



IGO SET PARAMETERS FOR CALLERS 
f TRANSMITTER ANO CALLED RECEIVER 



SUBROUTINE TO DfiOONNieT LIKE M HAB LIME # 
DISCONI BIC #6 9 f>ReSRCi3 

T8T #RCSR(03 

RT8 f 

I8UBR0UTINE TO CONNECT LINE R0 HAS LINE # 

CONN! BIS #fc,MCBIIt0) lit? Dt*. RQ TO 8ND 

RTS 7 

ITHANSMITTIR INTERRUPT COMMON HANBLlf? 
TI8RI NOP 

m , . 
#TCSRC03 
TI8RA 



@1®?24 



A8L 
T8TB 
BMI 
ERROR 
TIBRAAI RTI 
TISRAI TSf 
BEO 
CMP 

Bm 
Moyi 

INC 

CMP 



RTI 

010724 T1SREI MOVB 
INC 

' TSf 
SINE 

001406 CMP 

BNi 

001406 TZSRBBt MOV 

iff 



IR0 HM LINE # 
f CHECK FOR DONE 
IBRANCH IF DONE . 
! ERROR 1 FALSE INTERRUPT 
I8XIT .. 

CONFIG ITHW eONFIOURATIO @f 

TISRC I BRANCH If TES 

X0, CALLER IDID CALLER INTERRUPT 

TISRC 

9 f SUW , »TBUF m I TRANSMIT 

tsuffp ibtbp mtmm 

#iurr#.iii 99 ?iurFP 

•♦10 

#iITI,#TB8ReS3 

•OTBUFP,#TBUriCB) | TRANSMIT THE NEXT, CHARACTER 

0T8UFP I STEP POINTER TO NEXT CHAR, 

CONFIG IMAB CONFIGURATION SELECTED 

TI8RB IBRANCH XF CONFIG #1 OR #8 

#OUTBUF*1000,»OTBUFP|HAVE 1000. CHARS, BEEN SENT 
TI8RAA IEXIT If NOT 

iOUTSUFiOTBU^f IBE8IT POINTER 
I ANO WIT 



OZDLBB MACV1 1 ? T C 65 7 3 1 7»NOV«?5 IfijSp PAGE 3? 
OZOUBB.SRC 





















1 490 


$06404 


2 ? 1 1 7 


$1^054 


001 406 


TISRPI 


CMP 


«OUTBUF*100. ,0TBUFP|HAVE 100. CHARS » BEEN SENT? 




WHBt is 










PNF 


T I SR A A 


■ Cuff V? |iik« 

lEXIT IF NOT 


1 49? 

: 


to Y> B H I 1 


O /I 3 7 7 U 


mem i ma 

\n\ovi i s0S0 


ra i a & 3«k 




BIC 


#B IT6 i #TCSR f 0) 


IDISABLE TRANSMITTER INTERRUPT 




ffl ffl t /J 3 3 


fl* f?( fR T & /I 








BR 


T I SRBB 


1 RESET POINTER AND EXIT 


: * 
I 495 
















1 496 










IPR60 - 


SINGLE 


CHARACTER LINE 


MODE TEST, 


1 4 9 ** 
















149$ 


006424 


000240 






PRG0 1 


NOP 




IBEGXN PRG0 


1499 


006426 


1 04000 








TYPg 




f TYPE 


1500 


006430 


012507 








P0TIT 




IPROORAM TITLE 


1501 


006432 


1 04000 








TYPE 






1502 


006434 


013143 








3ELCAR 






1503 


006436 


0047 37 


Matt 1 A 
CIV3J 1 *» 






JSP 


PC.R00CT 


?6ET INPUT 


1504 


006442 


t 1 2601 








M0VB 


CSP)*,X1 


I0ET USER SPECIFIED DATA 


1505 


006444 


010137 


P> X ** 7 * S3 






MOV 


Xt,0UTBUP 


9 AND 


1306 


006450 




rsrs a « ¥ /j 

V)I0<* J ID 






jsr 


3, BM0VE 


1 LOAD 


1 507 


6i m &. a ss n 


014710 








QUTBUF 




9 INTO 


1503 


006456 










0UTBUP*! 


a Ml i>r Bl 19 

1 OUTPUT 




an j. a 4* m 


W 10 4 r *» f 








994, 




i Bur r 




IOI30HBC 


10 10 ■? f 3 ' 








JSR 


?,0VRLAY 


1 UVCN LAY Crf iLr *8 IN DATA 


1511 


006466 


004737 


010274 






J3R 


7,LDPRX 


ILOAD PRIORITY LEVEL IN VECTOR^K 


1512 


006472 


in « •* f 3 f 


IT 1 IVlCCv 






JSR 


7,LDTVEC 


ILOAD TRANSMITTER VECTORS 


1513 


006476 


004737 


010162 






JSR 


7 ? LDVEC8 


ILOAD RECEIVER VECTORS 


1514 




0127 37 


000340 


177776 




MOV 


#prty?»psn 


ISET PROCESSOR PRIORITY!? 


1515 


0IPl*,m a 


012702 


000140 






MOV 


«140,X2 


ISET II 


151 6 




01 2701 


010432 






MOV 


»RC8R,Xl 


IBIT IN 


1 5 1 7 




004517 


AIAI \ h 

VJ i Y> t I w 






JSR 


S,M0VIT 


1 ALL RECEIVERS 


1518 




1 04000 








TYPE 




ITYPS 














MAKCON 




l # MAKE LINE CONNECTION^ 


1 520 


13 10 O 3 J) (0 


/J (0 !3 10 3 / 


177776 






CLP 


P8W 


ISET PROCESSOR PRIORITY®® 


1 52 1 


HiOB 35«* 








prgsai 


WAIT 




f WAIT 


i JSC 


K? IS O 3 J 


0101017 7fc 

www ? » o 








BR 


PR6SA 


f HERE 


152S 
















1524 










IPRG1 * 


SPECIAL 


BINARY COUNT PATTERN LINE MODE TEST, 


1 525 
















1526 


006540 


\ 04000 






PRG1I 


TYPE 




1 TYPE PR08RAM TITLE, 


1527 


006542 


01 2553 








PiTXT 






1528 




012737 


1 1 3 


014710 




MOV 


flii§il,QUT@Ur 


ILOAD CRLP 


1529 


oi oik's «;:> 


004537 


004132 






JSR 


S S 1NPIL 


ILOAD OUTPUT 


1530 


006556 


014712 








0UT8UF*! 


IWITH BINARY 


1531 


006560 


00175® 








i@i@ B 




1 COUNT PATTERN 


1532 


006562 


012737 


000100 


001334 




MQV 


#l§S»NUMif R 




1533 


006570 


0047^7 


010274 






JSP? 


7,LDPRI 


ILOAD PRIORITY LEVEL IN VECTOR +2 


1534 


006574 


5(04737 


010226 






JSR 


7.LDTVEC 


ILOAD TRANSMITTER VECTORS 


1535 


006600 


004737 


010162 






Jilt 


7,LDVEC8 


ILOAD RECEIVER VECTORS 


1536 


006604 


01273? 


000340 


177776 




MOV 


iPRTVTiPSW 


ISET PROCESSOR PRIORITY^? 


1537 


006612 


012702 


0100140 






MQV 




I8IT IE BIT 


1538 


006616 


012701 


010432 






MQV 




ISET FIRST eSR ADDRESS 


1539 


006622 


004537 


010116 






JSR 


S,M0VIT 


1 AND MOVE IT 


1540 


006626 


104000 








TYPE 




ITYPE 


15«1 


006630 


013251 








MAKCON 




1 'MAKE LINE CONNECTION' 


1542 


006632 


C*05037 


177776 






CLR 




ISIT PROCESSOR PRIORITVse 



OZDLBB MACY11 27(6571 
OZOLBB.SRC 



543 006636 

544 006640 
545 

546 
547 
548 
549 
550 

551 006642 

552 006644 

553 006646 

554 006652 

555 006656 

556 006664 

557 006670 

558 006674 

559 006676 

560 006702 
006704 

562 006712 
363 006714 

564 006720 

565 006724 

566 006730 

567 006734 

563 006736 
5&9 

570 
571 

572 006740 

573 006742 

574 006744 
375 006750 
576 006734 
37? 006760 
5?6 006766 
S?9 006772 
38@ 006774 

561 006776 

332 007000 
383 007002 
§34 007006 

333 007012 
136 007016 
33? 007022 
333 007026 
389 007|)34 
39b 00<7040 

591 007046 

592 007058 

393 007064 

394 §07036 
393 007064 
396 007066 



000001 
000776 



012622 

004S3? 
004737 
052777 
0045S7 
012702 
1 12201 
&20127 
001772 
032737 
001402 
004737 
00431? 
0101?? 
10577? 
100375 
000736 



1 04000 
012672 
00453? 
004737 
013706 
052777 
004537 
104006 
00?036 
104007 
007270 
003037 
013700 
012720 
013710 
012701 
032737 
004737 
052777 
003037 
000001 
000776 
01773? 
100461 
105737 



004014 
004402 

000004 
004742 

0I3S04 



£108100 0013T4 

003600 
004742 

l?g§36 
172230 



fi@4014 
P04402 
001176 

000004 172218 



007470 
001234 
007422 
001236 
014710 
100000 
®@?&34 
i0@140 
177776 



PftSSCf WAIT IWAIT 
BR PRSiC f HERE 

IPRG2-SPECIAL MESSAGE TRANSMIT ONLY THIS PROGRAM TRANSMITS 

I 

I THI MESSA0I H QUI.CK SROWN ?m JUMPED OVfR THE LAZY OOSS 

IBACK IBMWBmJ 
9 

PRigl TYPE 
P1TIT 
JSR 
JSR 
SIS 

PR@|A§ JSR 
PRSiil MOV 
PROiCl MOVB 
CMP 
BED 
BIT; 
3E0 
JSR 
JSR 
MOV 
TSfS 
iPL 
SR 

f 

IPR63*PRB©RSM TO-'MGfXVE 
!*ftftftftft*ft*ft~ 



SsLlNliL 
7rSET>Afl-. 

*B-xtt,mcait 

S»LXNC0N 

cm.xi 

%%>&*% 

•■♦4 

?»flfNPAR 
S,LXNC0N 



ITVPE PMmhti 
ITXTLE 

ISO SET PARAMETERS 
ISET REQUEST TO SEND 
160 MAKE LXNE CONNECTION 

ISET Ad&RISS OF MESSASi 
I BET flRST CHARACTER 
ITERHXNATOR CHARACTER 
IRESEND MESSAGE 

I PARITY ENABLED 

I6EHERATE PARITY 

iCHECKvitHE Connection 

ILOAO'-SUffPill 
I AND WAIT FOR CHARACTER 
ITO Si TRANSMITTED 
I BET NEXT CHARACTER. 



a umnmE-, 



PR §33 



PR@3A§ 



172116 

081370 



007466 
172132 



001370 RINTSl 



TYPE 

P3TXT 

JSR 

JSR 

MOV 

SIS 

JSR 

8TRXV 

RXNfg 

STTXV 

TINTS 

CLR 

MOV 

MOV 

MOV 

MOV 

BIS 

JSR 

BIS 

CLR 

WAIT 

BR 

MOV 

iMX 

Tlfi 



tatpiL: 
TjSEtpA^, . 
.»'StKPTHirt,»* 
#'BITf,#R«e8R 
9,LXNC0N 



MQRDS 
TpyTR»l@ 

TPLVL, £03 

#QUTPUF,%i 

#liTlS ? TPLA@ 

7,TCRLP 

#i&§,#Rg&§R 

• «§ 

DRXCSRaRMOSRT 
ERRSA 

RSCCSRT 



?TVl!f-^R0@iAM 

tnTLt 

I0ET PARAMETERS , . 

IREPWTXON ITACK POINTER 
ISET REQUC4T TO SEND 
I HAKE LINE' CONNECTION 
t$tf RECEIVER INTERUPT 
ITO THIS ADDRESS 
ISET TRANSMITTER INTERRUPT 
I TO THIS ADORES* 



IL0A9 TELEPRINTER VECTOR 
I AND PRIORITY 
ISET SUP ADD 
ISET .SIT 13 
I SEND OR LP 

IENABLC RECEIVER INTERRUPTS 

I DO 

INOTHXH0 

ISET RKC8R DATA 

I BRANCH IP ERROR 

ITEST 



OZDLBB 1 1 ?y(h5t) 1 T-NOV-7S ia:5pi 

OIDLBB.S^C 



PARE 3« 



15*37 


007072 


l 0006a 










1508 


00707a 


005?3? 


007A70 






I Nf 


15^9 


0)07 i 00 


017717 


t 72076 


V r> f <* ( d 




MQ V 


1600 


007 10fe 


11^711 


007472 






M0V8 


1601 


007 112 


005 7 17 


UBT/173 






TST 


1602 


007J 16 


1 00a55 










1603 


007120 


1 05777 


i f \ lu j kj 






"3TB 


i 6fta 


007124 


t a pis 










1 60S 


007126 


105777 


1 7 2052 






TgTB 


1606 


007 i 32 


1 00375 








BPL 


1 60? 


007134 


111177 


1 72046 






MQVB 


1 60S 


007 1 40 


0237 27 


007470 


KJ SO & © V} ft? 


£5 ¥ MT1 A 1 


CMP 


1609 


007146 


00141 1 










1610 


007150 


005737 


007466 






TST 


1611 


007154 


! 00441 








BM f 


1612 


007156 


121 103 








CMPB 


1613 


007 1 60 


001 404 








BEQ 


1614 


007162 


1 22127 


000203 






CMPB 


1615 


007166 


001401 








BE(3 


1616 


007 170 


000002 








j 


1617 


007172 


005017 


007470 




RINT3BI 


CLR 


1618 


007176 


042777 


000140 


171774 




Bic 


1619 


007204 


012701 


0ia?l i 






HQV 


1620 


007210 


010102 








MOV 


1621 


007212 


052777 


000100 


171764 




BIS 


1622 


007220 


052777 


000100 


171776 




RI§ 


1623 


007226 


000002 








RTf. 


1624 


007230 


! 04015 






IRR3A | 


ERRRX 


1625 


007232 


013605 








LFAIL 


1626 


007234 


042777 


000140 


171736 




Bic 


1627 


007242 


000644 








BR 


1628 


007244 


1 04015 






ERRSSl 


ERRRX 


1629 


007246 


012366 








RINTM 


1630 


007250 


000002 








RTf 


163i 


007252 


1 04015 






ERRlCf 


ERRRX 


1632 


007254 


013623 








ROVER 


1633 


007256 


000002 








RTf 


163a 










1 


1635 


007260 


005037 


007466 




RINT3EI 


cl$ 


1636 


007264 


1 12103 








MOVB 


163? 


007266 


000002 








RTI 


1638 










f 


1639 


007270 


017737 


171710 


001 366 




MQV 


1640 


007276 


105737 


001366 






T8TB 


1641 


007302 


100016 








BPL 


1642 


007304 


! 12177 


171676 






HOVS 


1643 


007310 


005237 


007470 






!NC 


1644 


007314 


12U03 








CMPB 


1645 


007316 


001431 








SE9 


1646 


007320 


02372? 


007470 


001604 




cm 


1647 


007326 


001425 








BE9 


1648 


007310 


121127 


0002B3 






CMPB 


1649 


00733a 


00U22 








agg 


165b 


007336 


000002 








RTI 



CRR3* 

WORDS 

#RXBUF,RXflUFT 
RXBUPT, CD 
RXBUFT 
ERR3C 

P3PPTR 
RINT3A 
»TXCSR 

8 «4 

U) ,*TXBUP 

WORDS, #900 9 

RINT3B 

TFLAG 

RINT3E 

Cl),X3 

RINT3B 

RXNT3B 

WORDS 

«!40,<iRycaR 

#0UTBUP*1,X1 
XI, X2 

#BIT6,»TXCSR 



#140,*RXC8R 

PR83A 



TPLAS 
C1)*»X3 



$TXCSR# TXC8RT 

TXC8RT 

TINT3B 

£l)*##TXBUF 

WORDS 

fl),X3 

TINT3C 

&S0RDS,#98§ 9 

T2NT3C 

TINT3C 



IGFT OAT* 



JECHO OPTION SELECTED 



lECHO CHARACTER 

iEno of buffer allowed 

I YES EXIT 

IIS THIS THE FIRST 

f CHARACTER BRANCH IF YES'. 

ILA3T CHARACTER RECEIVED 

ICONTROL C 

IEXIT 

I0I3ABLE RECEIVER 

9 INITIALIZE BUFFER POINTER 

I ENABLE TRANSMITTER 
i ENABLE TELEPRINTER 
IEXIT 

ITYPE ERROR MESSAGE 

I 

f DISABLE RECEIVER 
ITYPE 

IERROR MESSAGE 
IEXIT 



IGET TXCSR DATA 
ITEST 

ITRAN8MXT CHARACTER 

I ALL CHARACTERS TRANSMITTED 

fa CONTROL C 

9 RETURN TO MAIN PROGRAM 



OZDLBB MAC Y 1 1 27(65?) 
DZDLBB.SRC 



17-N0V-75 14150 PAGE 35 



1651 


007340 


0177*7 


171660 


001372 


TINTSBi 


MQV 


#TP3 e TiMP 


1652 


0073a6 


00507? 


171652 






CLR 


PTPS 


1653 


007352 


105777 


171646 






T8TS 


#TP8 


1654 


007356 


5 00375 








BPL 




1655 


007360 


104014 








ERRTX 




1656 


007362 


012407 








TINTM 




1657 


007364 


105777 


171634 






TSTB 


#TPS 


1658 


007370 


100375 








BPL 




1659 


007372 


813777 


001372 


171624 




MOV 


TEMPt #TPS 


1660 


007400 


000002 








»T! 




1661 










f 






1662 


007402 


042777 


000100 


171574 


TINT3CI 


BIC 


*8IT6,PTXC8R 


1663 


007410 


032777 


000100 


171606 




BIT 


#BIT6 f *TP8 


1664 


007416 


001421 








BEO 


PR63EX 


1665 


007420 


000002 








RTI 




1666 










1 






1667 










9 






1668 


007422 


1 12277 


171600 




TPINTI 


MOVi 


C2)*j#TPB 


1669 


007426 


121203 








CMPS 


C2i#X3 


1670 


007430 


001404 








SEQ 


TPINTA 


1671 


007432 


121227 


000203 






CMPB 




1672 


007436 


001401 








BEQ 


TPINTA 


1673 


007440 


000002 






TPINTA1 


RTI 




1674 


007442 


042777 


000100 


171556 


sie 


#BIT& 8 #TP$ 


1675 


007450 


032777 


000100 


171526 




BIT 


•BIT6,BTXCBR 


1676 


007436 


P01401 








BIS 




1677 


007460 


000002 








RTI 




1678 


007462 


000137 


006754 




PR6IEXI 


JMP 


PRBIA 


1679 


007466 


000000 






TPLA6! 







1680 


007470 


000000 






W0R08I 







1681 


007472 


000000 






RKBUFT1 







1632 










?ft*ft««ft«ftftft 




1683 










!PR@4«3PgeilL MISSA6E TRANSMIT 


1634 










1 




1683 










IME88A8I 8P?S»4L 


PATTERN 


1686 










I 






1687 


007474 


104000 






PR64S 


TYPE 




1688 


007476 


012730 








P4TIT 




1639 


007500 


004337 


004014 






JSP? 


l»LlN§gL 


1690 


007504 


00473? 


004402 






jm 


ft SETPAR 


\169i 


007510 


052777 


00®0@4 


171462 




BIS 




1692 


007516 


012737 


000110 






MOV 


«?t 9 ,C0LMM 


1693 


007S24 


012703 


000040 






MOV 


MflrXS 


1694 


007530 


004517 


004742 




PRBftAf 


JSR 


S,LINC0N 


1695 


007534 


004737 


007654 






4SR 


7,TCRLF 


16^6 


007540 


010102 






PR@Sil 


MOV 




1697 


007542 


110201 






PR04CI 


MOVB 




1698 


007544 


120117 


i0§?!36 






CMPB 


Xi,#i3l 


1699 


007S50 


001003 








8NE 


PR@4D 


1700 


§07552 


012701 


0§0040 






MOV 


##@ f Xi 


1701 


007536 


000771 








BR 


PRB4C 


17B2 


007560 


032737 


$00100 


001174 


PRS4D1 


BIT 


#i!T&,SRT 


1703 


007566 


0014@1 








BEQ 




1704 


007570 


0047S7 


8@S680 






JSR 


T t 8ENPAR 



I SAVE TELEPRINTER STATUS 
f DISABLE INTERRUPT 
I WAIT POR 

TELEPRINTER TO FINISH 
ITYPE 

I ERROR MESSAGE 

f WAIT FOR TELEPRINTER 

ITO FINISH 

I RESTORE TELEPRINTER STATUS 
IEXIT 

f DISABLE INTERRUPT 
I IS TTY ACTIVE 



ITYPE 8NABA6W 

g y &S THIS THE LAST CHAR* 



1 8 CONTROL C 



I0I8ABLE INTERRUPT 

I IS TRANSMITTER ACTIVE 



IEXIT 



ONLY TMIf PStOBRAM TRANSMITS 



itvfe msmm 

ITITLE 

160 SIT PARAMETERS 

I8ET RlQUESf TO SEND 
UNIT PAGE WIDTH 
ISIT LINE START CHAR 
ISO MAKE LINE CONNECTION 

IBET FIRST CHARACTER 
I BET CHARACTER 
I TERMINATOR CHARACTER 
I RE3END MgSiABE 



IPARITY ENABLED 
IQENERATE PARITY 



OZDlBB MAC Y 1 1 27 (fc«?7) 
OZOLBB.SRC 



! 7-NOV-7S 14 :5p PARE 36 



1705 


00757a 




004702 






JSP 


1706 


007600 


9110177 


1 71 402 






MOV 


1707 


007604 


135777 


1 71 374 






7ST8 


1708 


007610 


100375 








8P|_ 


1709 


007612 


0*05202 








INC 


1710 


007614 


005337 


00765? 






DEC 


17H 


007620 


001350 








BNg 


1712 


007622 


012717 


0001 10 


007652 




MQV 


1713 


007630 


004737 


007654 






JSP 


17U 


007634 


005203 








INC 


1T15 


007636 


120327 


000136 






CMPB 


If 16 


007642 


001336 








BNE 


1717 


007644 


0M2703 


000040 






MOV 


1718 


007650 


000713 








BR 


1719 


007652 


000000 






COLMNl 





1720 










1 




1731 










I SEND CR LP 


1723 
1723 


007654 


112777 


000015 


171324 


tcrl.fi 


MOVB 


1724 


007662 


105777 


171316 






TSTB 


1725 


007666 


100375 








BPL 


1726 


007670 


112777 


000012 


171310 




MOVB 


1727 


007676 


105777 


171302 






T8T8 


1728 


007702 


100375 








BPL 


1729 


007704 


5)00207 








RTS 


1730 










1 


1731 










IPROGRAM 5 


1732 










J ********** 


1?33 


007706 


1 04000 






PROS! 


TYPE 


173a 


007710 


012777 








PUT IT 


1735 


007712 


004537 


004014 






J9R 


1736 


007716 


000005 








RISE? 


1737 


007720 


004737 


004402 






J8R 


1738 


007724 


052777 


000006 


171246 




SIS 


1739 


007732 


104000 






PR83AI 


TYPE 


1740 


007734 


013251 








MAKCON 


1741 


007736 


000000 








HALT 


1742 


007740 


005777 


171236 






TS? 


1743 


007744 


032777 


020000 


171226 




BIT 


}744 


007752 


001003 








BNE 


1745 


007754 


1 04000 






PRGSAAI 


TYPg 


1746 


007756 


013377 








LINCHM 


1747 


007760 


000764 








BR 


1748 


007762 


104000 






PRGSBt 


TYPE 


1749 


007764 


013427 








LINMAD 


1750 


007766 


005037 


010114 






CLR 


1751 


007772 


"112702 


013504 




PftGSBBi 


MOV 


1752 


007776 


1 12201 






PRQSei 


MOVB 


1753 


010000 


020127 


000045 






CMP 


1754 


010004 


001440 








§19 


1755 


010006 


032737 


000100 


001374 




BIT 


1756 


010014 


001402 








BED 


1757 


010016 


JS047S7 


003600 






J8R 


1758 


010022 


032777 


82PI008 


171150 




BIT 



5,IINC0N 
%l,e»TXBUF 

#TXCSR 

,m& 

%2 

COLMN 
PRG4C 

•72., COLMN 
7.TCRLF 

S3 

X3,#136 

PRS4B 
#40, X3 

PRG4B 



#13,#TXBUP 
*TXC3R 

,*4 

*12,PTX6UF 

0TXCSR 
• •4 



3f LIN8EL 



7| 8ETPAR 

#6,fRXe3i 



f»RXBUF 

SBITiSfiRXCSR 
PRGIB 



ERRCNT 
*PRG2M,X2 

CI)*, XI 
X1,#'X 

mmt 

#BIT6,SRT 
.♦6 

7,6ENPAR 
»BIT13.*RXCSR 



ICHECK LINE CONNECTION 

ILOAD BUFFER 

I AND WAIT FOR CHARACTER 

rTO BE TRANSMITTED 

ISET FOR NEXT CHAR 

I ALL COLUMNS PRINTED? 

INO, GET NEXT CHAR 

IRESCT COLUMN COUNTER 

IUPDATE LINE START CHAR 
ILAST IN SET 

fNO 

IYES. RESET 

IGET NEXT CHARACTER, 



ISEND CRiLF 



ISET OTR RQ TO 8ND 
I TYPE MESSAGE TO MAKE 
f LINE CONNECTION 

I WAIT FOR USER TO MAKE LINE CONNECTION 
'READ BUFFER 

f TEST FOR CLEAR TO SEND 

ITYPE ERROR MESSAGE 
I AND TRY AGAIN 



IGET BASE ADDRESS OP DATA TO BE TRANSMITTED 

IGET A CHARACTER 

IWAS IT THE TERMINATOR? 



IWAS PARITY OPTION SELECTED? 
IBRANCH IP NO PARITY DE8IRED 
IGENCRATE PARITY ON CHAR. IN Rl 
ICHECK CLEAR TO SEND 



DZDLBB MACY1 1 27 (657) 
OZDLBB. SRC 



!7«*N0V«T5 14150 PAGE 3? 



1759 


010030 


021751 








ago 


PRGSAA 


ITYPE ERROR MSG. IF NOT SET 


1760 


010032 


010177 


171150 






MOV 


X1,#TXBUP 


f TRANSMIT THE CHARACTER 


1761 


010036 


005777 


171 140 






T3T 


fftXBUF 


1 ANY ERROR FLAGS? 


1762 


010042 


100001 








BPL 




1 BRANCH IF NO ERROR FLAGS 


1763 


010044 


104003 








ERROR 




1 ERROR! SOME ERROR FLAG IS SET 


1764 


010046 


105777 


171126 






TSTB 


PRXC3R 


IWAIT FOR THE RECEIVER TO RECEIVE 


1765 


010052 


100375 








BPL 




ITHE TRANSMITTED CHARACTER 


1766 


010054 


1 17703 


171122 






MOVB 


PRX8UP,X3 


I8AVE XT IN R3 


1767 


010060 


043701 


001362 






SIC 


CARMSK.Xi 


ICLEAR NON* TRANSMITTED BITS 


1768 


010064 


1 20103 








CMPB 


XI, X3 


IWAS RECEIVED S TRANSMITTED DATA THE 


1769 


010066 


001403 








BIG 


PRG3-0 




1770 


010070 


104003 








ERROR 




IERR0R4 DATA ERROR 


1771 


010072 


005237 


010114 






INC 


ERRCNT 




1772 


010076 


105777 


171102 




PRGSDl 


TSTB 


0TXCSR 


IWAIT FOR TRANSMITTER TO FINISH 


1773 


010102 


100375 








BPL 






1774 


010104 


000734 








BR 


prssc 




1775 


010106 


104000 






PRGSEl 


TYPg 






1776 


010110 


013350 








ENDPA8 






1777 


010112 


000727 








BR 


PRgSBB 




1778 


010114 


000000 






ERRCNT 1 


OPEN 






1779 










ITHI8 ROUTINE i 


KOVIS THE CONTENTS 


i OF m TO THE ADDRESS SPECIFIED 


1780 










IBY Ri 








1781 


0101 16 


012737 


000006 


000004 


MOVITI 


MOV 




ISET UF FOR RETURN 


1782 


010124 


012737 


000002 


000006 




MOV 






1783 


010132 


012700 


000037 






MOV 


#31.,X0 


IGET COUNTER 


1784 


010136 


010231 






MOVITAI 


MOV 




IMOVE THE DATA 


1785 


010140 


005300 








DEC 


X0 


1 ALL DATA MOVED? 


1786 


0101.42 


001375 








BNi 


MOVZTA 


INO, RETURN 


1787 


010144 


012737 


004330 


mmm 




MOV 


#ERTP,MACHER 




1788 


010152 


012737 


000040 


mmm 




M0V 


#«0,MACHER*2 




1789 


010160 


000205 








RTS 


3 


IRETURN 


1790 










I 








1791 










I8UBR0UTINE TO 


LOAD ALL VECTORS 




1792 


010162 


012701 


011022 




L0VEC8I 


MOV 


#RI8R0,X1 




1793 


010166 


012702 


010334 






MOV 


fVECTAB,X2 




17«?4 


010172 


012703 


000010 






MOV 


#UiX3 




1795 


010176 


012704 


000037 






MOV 




I00E3 This vector exist 


1796 


010202 


032712 


000001 




LDVECBI 


BIT 


#BXT0,C2) 


1797 


010206 


001002 








BNg 


LDVEC1 


INO, SKIP LOADING 


1798 


010210 


010172 


000000 






MOV 


XI, PCS) 


ILOAD VECTOR 


.799 


010214 


060301 






LDVEC1I 


ADD 


X3.X1 




T800 


010216 


005722 








TST 


en* 




1801 


010220 


003304 








DEC 


u 




1802 


010222 


001367 








BNg 


LOVgCB 




1303 


010224 


000207 








RT3 


f 




1804 










1 








1801 


010226 


012701 


011412 




LDTVICI 


MOV 


#TX9R0»X1 




1806 


010332 


012702 


010334 






MOV 


iVECTABf X8 




1807 


010236 


012703 


000010 






MOV 


ilfrXS 




1808 


010242 


012704 


000037 






MOV 


«31.»Xt 




1809 


010246 


032712 


000001 




LOTVEDI 


BIT 


•BXT0i Ct) 


IDQS8 THIS VECTOR EXIST 


1810 


010252 


001003 








BNE 


LDVEC2 


1 NO, SKIP LOADING 


1811 


010234 


011200 








MOV 


(2)iX0 




1812 


@102§6 


010160 


000004 






MOV 


XI, 4(0) 
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1921 


012162 


c*2cpa0 


020040 












0121*6 




mg0040 


020040 


MTRAPl 


.ASCII 




1923 


pi?i74 


040045 












192a 


012176 


0a?045 


04711? 


020105 


MNONn 


.ASCII 


'XNONC FOUNOXf* 


1925 


R12204 


0G7S06 


047125 


022504 








1926 


012212 


100 












1927 


012213 


045 


054520 


042530 


MSWSELi 


.ASCII 


'XTYPE IN PROGRAM NUMBER #♦ 


1928 


012220 


P44U40 


020116 


051120 








1929 


EM2226 


0*13517 


040523 


030115 








1930 


012234 


052516 


R41 US 


051105 








l«i 


01224a 


020040 


030040 


100 








i93a 


012247 


045 


(351105 


047523 


MfgRRi 


•ASCII 


'XERROR • UNEXPECTED TRAP* 


1933 


012254 


020122 


020055 


047125 








1934 


012262 


5)54105 


042530 


033103 








1935 


012270 


042105 


05g®40 


040532 








1936 


012276 


120 












1937 


012277 


045 


051124 


030101 




.ASCII 


STRAPPED TO 9 


1938 


012304 


042520 


(820104 


047534 








1939 


012312 


020040 












1940 


012314 


020040 


030040 


020040 


MTOl 


•ASCII 


# ' 9 


1941 


012322 


020040 












194a 


012324 


052045 


040533 


050130 




•ASCII 


"XTRAPPEO FROM PC ' 


1943 


012332 


042105 


043040 


§47533 








1944 


012340 


0201 15 


041530 


030040 








1945 


012346 


020040 


020040 


030040 


HFROMi 


a Ascn 


*' 


1946 


013354 


020040 


100 










1947 


012357 


040 


0g0040 


020040 


CSSUDDI 


• ASCII 


* *« 


1948 


012364 


040000 










•XFAL3E INT. RCVR*' 


1949 


012366 


043045 


046101 


043533 


RINTMI 


•ASCII 


1950 


012374 


044440 


851116 


030036 








1951 


01240a 


041322 


031136 


100 






'XPALSE INT XMIT*' 


195g 


01240? 


045 


040506 


051514 


TINTMI 


•ASCII 


1953 


012414 


020105 


047111 


020134 








1954 


012422 


046530 


053111 


100 








1955 


012427 


045 


041530 


030075 


EM0I 


•ASCII 


'XPC» ' 


1956 


012434 


020040 


030040 


020040 


APCl 


•ASCII 




195? 


012442 


030040 


100 










1958 


012445 


040 


052040 


041530 


ATSCSPi 


•ASCII 


' TXCSR a 9 


1959 


012452 


051123 


036440 


040 








i960 


012457 


040 


020040 


030040 


ATXWA3I 


•ASCII 


• 


1961 


012464 


040040 












1963 


012466 


020040 


054133 


031503 


ARXC3R1 


•A8CII 


* axes?? a * 


1963 


012474 


020122 


(320075 










1964 


012500 


020040 


020040 


820040 


ARXWASI 


9 ASCI1 


* #• 


1965 


012506 


100 












1966 


012507 


045 


050045 


043333 


P0TITI 


•ASCII 


*XXPRGB • SINGLE CHAR LINE MODE TEST*' 


1967 


012510 


020060 


020055 


044533 








1968 


012522 


043516 


043514 


041440 








1969 


012530 


040510 


020133 


044514 








1970 


012536 


042516 


046440 


043117 








1971 


012504 


020105 


042534 


052183 








1973 


012552 


100 












1973 


012553 


045 


030045 


043532 


P1TIT? 


•ASCII 


'XXPROl - SPEC BIN COUNT LINE MODE TEST*' 


1974 


012560 


020061 


020055 


050133 
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1975 


012566 


001505 


041040 


047111 


1976 


012574 


041440 


032517 


§33116 


1977 


012602 


046040 


047111 


020103 


1978 


012610 


047515 


043504 


053040 


1979 


012616 


051505 


040134 




I960 


012622 


023445 


051130 


031107 


1901 


012630 


026440 


051440 


042330 


198a 


012636 


044503 


046101 


046440 


1983 


012644 


051505 


040533 


042507 


1984 


013652 


046040 


047111 


030105 


1985 


012660 


047515 


043504 


053040 


1986 


012666 


051505 


040134 




1987 


012672 


022445 


051130 


031507 


1988 


012700 


026440 


051040 


041305 


1989 


012706 


044503 


042336 


046440 


1990 


012714 


051505 


040333 


043307 


1991 


012722 


052040 


031503 


040134 


199a 


012730 


022445 


051120 


03310? 


1993 


012736 


02644® 


051440 


043520 


1994 


012744 


004503 


046101 


046440 


1995 


012752 


051505 


040333 


048307 


1996 


012760 


052040 


051505 


010124 


199? 


012766 


051450 


£144330 


040323 


1998 


012774 


021514 


\m 




1999 


012777 


045 


051130 


012507 


3000 


013004 


026440 


043040 


053101 


3001 


013012 


020101 


041503 


047310 


3002 


013020 


052000 


031503 


020184 


3003 


013026 


051523 


047111 


030107 


3004 


013034 


040513 


047131 


051101 


3005 


013042 


0201 04 


040506 


044503 


2006 


013030 


044514 


054324 


100 


3007 


013055 


043 


034334 


043330 


3008 


013062 


044440 


020116 


040330 


3009 


013070 


040522 


043313 


049524 


3010 


013076 


031533 


040440 


020123 


2011 


013104 


047506 


046114 


033517 


2013 


013112 


035133 






3013 


013114 


041045 


033111 


026461 


3014 


013132 


020060 


030073 


044103 


20,15 


013130 


051101 


046000 


047103 


2016 


013136 


052107" 


023610 


100 


2017 


013143 


045 


034334 


042520 


3018 


013150 


053040 


051303 


020114 


3019 


011156 


044103 


051101 


041449 


3030 


013164 


043117 


030103 


047111 


3031 


013173 


041040 


053111 


026467 


3032 


01320*0 


044503 


03ei3€ 


047440 


2033 


013306 


030106 


047101 


047440 


3024 


013214 


033103 


046101 


041040 


3035 


0i322£ 


053131 


820103 


030040 


2036 


013330 


040040 






3027 


013232 


044443 


046114 


043S03 


3038 


013240 


046101 


041048 


032101 



P2TITI • ASCII 'XXPRGB • SPECIAL MESSAGE LINE MODE TEST*' 



P3TITS e A8CII 'XXPftBS * RECEIVE MESSAGE TESTS* 



PflTlTi .ASCII 'XXPR^fl * SPECIAL MESSAGE TEST (SPIRAL)*' 



p 5TlTl .ASCII 'XPROf • OATA ECHO TEST USING MAYNARD FACILITY**' 



SELPARI • ASCII 'XTYPE IN PARAMETERS AS P0LL0W8I ' 



•ASCII 'XBIT1-0 ■ CHAR LENGTH**' 



8ILCAR1 • ASCII 'XTYPE TEST CHAR CODE IN BlTT-BITt OF AN OCTAL BYTE 



OTERRI .ASCII 'XILLEOAL DaTAX*' 
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2029 


5*13246 


???501 


100 








£030 


013251 


045 


04P515 


042513 


makcon: 




aasi 




« 4 6 PI 4 


Pia?i 1 i 


020105 








013264 


S*4??03 


nan 16 


041505 






2033 


013272 


7)44524 


R47H7 


0400*56 






3036 


013300 


P4?J)40 


053101 


020101 


CERP AT I 


.ASCII 


3035 


013306 


£*g7§?3 


035102 


040 






2036 


013313 


040 


020040 


020040 


rsBi 


• ASCII 


203? 


01332P! 


9)40527 


«35123 


040 






2038 


013325 


040 


020040 


020040 




.ASCII 


2039 


013332 


044103 


051 101 


047040 






3040 


013340 


027117 


040 








20«i 


013343 


040 


020040 


040040 


CRNUHI 


.ASCII 


2042 


013350 


007 






ENOPAgl 


.BYTE 


2043 


013351 


100 








.ASCII 


2044 


013352 


037445 


100 




AINPRQI 


• ASCII 


2045 


013355 


04S 


040528 


040522 


PARMTSI 


• ASCII 


2046 


013362 


042515 


042524 


051522 






204? 


013370 


036440 


040 








2048 


013373 


040 


020040 


100 


APARMl 


. ASCII 


2049 


013377 


040 


046103 


040505 


LINCHMI 


•ASCII 


2050 


013404 


020122 


047524 


031440 






2051 


013412 


047105 


020104 


047516 






2052 


013420 


020124 


042523 


027124 






2053 


013426 


100 










2054 


013427 


045 


W44514 


042516 


Lf NMADt 


•ASCII 


2055 


013434 


041440 


047117 


042516 






2056 


013442 


9152103 


047511 


0801 16 






2057 


013450 


040515 


042504 


040056 






2058 


013456 


041445 


047117 


044506 


AC0NPI6I 




2059 


013464 


052507 


040522 


044524 






2060 


013472 


047H7 


021440 


040 






2061 


013477 


040 


020040 


100 


TCONPIQl 




2062 




013504 








• EVEN 


2063 


§13504 


015 


012 




PRSgMi 


• BYTE 


2064 


013506 


044124 


020105 


052521 




•ASCII 


2065 


013514 


041511 


020113 


051102 






2066 


013522 


053517 


020116 


047506 






206? 


013530 


020130 


052512 


0501 15 






2068 


013536 


042105 


047440 


042526 






2069 


013544 


5120122 


044124 


020105 






2070 


013552 


840514 


054532 


042040 






2071 


013560 


043517 


020123 


040502 






207g 


013566 


045503 










2073 


013570 


030040 


031061 


032063 




.ASCII 


20*4 


013576 


033065 


034067 


S2707I 






20^5 


013604 


045 










2076 


£13605 


045 


®44514 


042516 




.ASCII 


2077 


*13612 


043040 


044501 


042514 






2078 


013620 


022504 


100 








2079 


013623 


045 


053117 


051105 


ROVgRl 


■ Asen 


2080 


013630 


052522 


026116 


043040 






2081 


013636 


040522 


042515 


020034 






2082 


013644 


05111T 


0*50040 


051 101 







'XMAKE LINE CONNECTION.*' 

* OATA B/Bt * 
9 WASl $ 

* CHAR NO. ' 

007 

^PARAMETERS ■ 9 



9 # 9- 

9 CLEAR TO SEND NOT SET.M 

•XLINE CONNECTION HAOE ■ • ' 

• A8CXZ 'XCONFIOURATION • * 
■ASCII ' #' 

eta, eis 

•THE QUICK BROWN FOX JUMPED OVER THE LAZY D0Q8 BACK ' 



9 0123496789.%' 
'XLXNE FAILED*** 

•XOVERRUN, FRAME, OR PARITY IftRORXf* 



OZOLBB MAC Y 1 1 27 (657) 
DZ0LBB.3RC 



t7«N0Vs»75 14S5@ PA8g #3 



2083 


013652 


0521 U 


®2@131 


051105 






2084 


013660 


047522 


022522 


100 






2085 


013665 


045 


044514 


042516 


ALINEXI 


■ASCII 


2086 


013672 


021440 


040 








2087 


013675 


040 


020040 


040527 


TLINEX1 


•ASCII 


2088 


013702 


820123 


041523 


042514 






2089 


013710 


052103 


042105 


100 






2090 


013715 


043 


044S14 


042516 


ALINE! 


■Asexi 


209i 


013722 


021440 


040 








2092 


013725 


040 


1*20040 


040527 


TLJNEI 


*Asen 


2093 


013732 


020123 


040503 


046114 






2094 


013740 


O4210S 










2095 


013742 


052045 


050131 


020105 




■ASCII 


2096 


013750 


047H1 


047440 


052103 






2097 


013756 


046101 


020072 


047583 






2098 


013764 


0431 16 


043511 


051125 






2099 


013772 


052101 


047511 


020116 






2100 


014000 


0471 1 1 


041040 


052111 






2101 


014006 


026460 


020061 


020046 






2102 


014014 


047515 


042504 


020115 






2103 


014022 


054524 


042520 








2104 


014026 


044445 


020116 


044502 




•ASCII 


2105 


014034 


031124 


020040 


030050 






2106 


014042 


030475 


031460 


020054 






2107 


014050 


036461 


030062 


024462 






2108 


014056 


020040 


020040 


020040 






2109 


014064 


100 










2110 


014065 


045 


034324 


042520 


WRUl 


■ASCII 


2111 


014072 


044440 


020116 


04151? 






2112 


014100 


040524 


020114 


047111 






2113 


014106 


041040 


052111 


026460 






2114 


014114 


020064 


044124 


mum 






2115 


014122 


044514 


042516 


021440 






2116 


014130 


054440 


058517 


040440 






2117 


014136 


042522 


041440 


046101 






2118 


014144 


044514 


043516 


043040 






2119 


014152 


047522 


020115 


010040 






2120 


014160 


040040 










2121 


014162 


054445 


052517 


041440 


UR1 


■ASCII 


2S22 


014170 


046101 


042510 


010104 






sm 


014176 


051 106 


046517 


046040 






212« 


014204 


047HI 


820105 


010043 






ai2§ 


014212 


020040 


100 




Ui&f 


8 Aseii 


2126 


014215 


045 


mam 


051505 


BUTTON 1 


■ASCII 


2127 


014222 


020123 


§40504 


040524 






2128 


014230 


041040 


aiaias 


047524 






2129 


014236 


0201 16 


047117 


042040 






2110 


014344 


052101 


020101 


044120 






2131 


014252 


047117 


040105 








2132 


014256 


052045 


050131 


020105 


LOLXNEI 


sASCfl 


2133 


014264 


044514 


042516 


047040 






2134 


014272 


027117 


044441 


010116 






2135 


014301 


041917 


04@5§4 


020114 






2136 


01410§ 


0471 U 


041040 


852111 







ASCII 'XTYPE IN OCTALI CONFIGURATION IN BIY0-1 1 MODEM TYPE* 



ASCII *%XN BITS (0*103, Isfigl 



ASCII # WPE IN OCTAL IN B!TB»4 THE LINE i YOU ARE CALLING FROM 



ASCII # XYOU CALLED FROM LINE # ' 



ASCII 'XTYPE LINE NO. IN OCTAL IN BIT 3*7 $* 



DZDLBB MACYll 37 (fe5?l 17-N0V-75 i<ii5i* PAGf aa 
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2137 


714314 


«3laa0 


033455 


020040 


2138 


01432? 


027040 


100 




2139 


014325 


045 


042522 


047503 


2140 


(M433? 


04?5?6 


042522 


020104 


21«1 


014340 


051 1 06 


046517 


050040 


2i«a 


014346 


053517 


051105 


043040 


2143 


014354 


•? a a 5 1 


052514 


042522 


2Ha 


014362 


1 00 






2145 


014363 


045 


046U 1 


042514 


21^6 


(214370 


040507 


020114 


044514 


2147 


Pi I a 3 7 6 


042516 


047040 


027117 


2148 


014404 


1 00 






2149 


014405 


045 


0461 1 1 


042514 


2150 


014412 


040507 


0201 14 


042504 


21 5 1 


014420 


044526 


042503 


040440 


2152 


014426 


042104 


042522 


051523 


2153 


014434 


100 






2154 


014435 


045 


054524 


042520 


2155 


014442 


044440 


020116 


04151? 


2156 


014450 


040524 


020114 


020072 


2157 


014456 


044502 


020124 


026460 


2156 


014464 


020065 


04a|24 


020105 


2159 


014472 


044514 


042516 


047040 


2160 


014500 


046525 


042502 


020122 


2161 


014506 


0431 17 


042040 


053105 


2162 


014514 


04151 I 


020105 


042101 


2163 


014522 


051 104 


051505 


020123 


2164 


014530 


047524 


041040 


105 


2165 


014535 


040 


047515 


044504 


2166 


014542 


044506 


042105 


020040 


2167 


014550 


020040 


100 




216S 


014553 


045 


054524 


042520 


2169 


014560 


044440 


020116 


042516 


2170 


014566 


020137 


054122 


051503 


2171 


014574 


020122 


042504 


044526 


2172 


014602 


042503 


040440 


042104 


2173 


014610 


042522 


051523 


020040 


2174 


014616 


020040 


100 




2175 


014621 


045 


054524 


042520 


2176 


014626 


044440 


020116 


033461 


2177 


014634 


033467 


03346? 


020040 


2178 


014642 


04752a 


04! 440 


040510 


2179 


014650 


043516 


020105 


047101 


2180 


014656 


052117 


042510 


122 


2181 


014663 


040 


042504 


044526 


2182 


014670 


042503 


040440 


042104 


2183 


014676 


042522 


051523 


020040 


2i8a 


014704 


$20040 


100 




2185 




014710 






2186 


014710 


000000 






2187 




016660 






2188 


016660 


000000 






2189 




020630 






21*50 




015054 







MPWRFS .ASCII 'XRECOVgREfJ FROM POWER FAILURE** 



MMODXl . ASCII 'XILLEGAL LINE NO.#' 



MMODDI . ASCII 'XILLEGAL DEVICE ADDRESS* * 



MMODll .ASCII 'XTYPE IN OCTAL I BIT 0-5 THE LINE NUMBER OF DEVICE ADDRESS TO BE* 



.ASCII ' MODIFIED • * 
MMODP t .ASCII 'XTYPE IN NEW RXCSR DEVICE ADDRESS •* 



MM0O3I ..ASCII 'XTYPE IN 177777 TO CHANGE ANOTHER* 



.ASCII 9 DEVICE ADDRESS #' 



• EVEN 
OUTBUFI OPEN 

.■OUTBUFM000. 

INBUFI OPEN 

,sINBUF+1000 a 
BUFF«OUTBUF-fl00, 
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1 7»Nnv» 


75 1 a i 5p 
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OZDlBB. 




T 4 HI. E 












A a 


000037 


ACONFI 


Ml 3U5b 


Aom 


004004 


ADTENP 


004362 


AGAIN 


003746 


AINPPG 


013353 


ALTNF 


013715 


ALINEX 


013665 


APARM 


3! 3373 


APC 


01243a 


ARXCSR 


012466 


ARXWAS 


012500 


ATXCSP 




6TXWAS 


CM2437 


RDCNV 


004216 


RDCNVA 


004250 


8DCNV0 


004302 


RDCNVC 


00430^ 


BDHNVn 


004306 


RIT0 s 


000001 


8IT1 a 


000*30? 


PIT10 8 


00200C* 


BIT J 1 8 


004000 


RIT12 a 


010000 


BIT|3 » 




b I t i a ■ 


4 0^00 


P-ITH ■ 


100000 


RIT2 s 


000004 


BIT3 a 




RIT4 s 


000020 


BITS ■ 


000040 


BIT6 a 


000100 


BIT? a 


000200 


RITft m 


000400 


BITQ a 


001000 


BMOVA 


004204 


BMOVE 


00a 1 7a 


RUFF s 


01505a 


BUFFP 


001400 


BUTTON 


014215 


CALLED 


001404 


CALLER 


001402 


CA9MSK 


001362 


CEROAT 


013300 


CHALT a 


104005 


CHLT 


002366 


CNVCTR 


004354 


COLMN 


007652 


CONFIG 


001332 


CONN 


006250 


COUNT 


001324 


CRNUM 


013343 


CRXTX 


003752 


CRXTXA 


003024 


HRXTXB 


003026 


CRXTXC 


003032 


CSB 


013313 
10400a 


f.SRADD 


012357 


CTRD 


001364 


CWAS 


013325 


oatchk- 


nCERR 


005532 


DECVAL 


004374 


DELAY a 


104016 


DEND 


020630 


DIGIT 


004356 


DISCON 


006834 


DLCNT 


003526 


OLY 


003466 


OLY A 


003504 


DLYB 


003S10 


DLYC 


003522 


DOIT 


003742 


DONE 


003776 


DTPHK 


005412 


DTCHKA 


002510 


OTERR 


013232 


FCDAT 


003346 


EHALT a 


104010 


EHLT 


002400 


EHLTA 


002410 


FIGHT 


003632 


EMTA 


002234 


EMTINT 


003222 


EMTTAB 


001264 


FM0 


712427 


ENDPA8 


013350 


ERR 


002512 


ERRA 


002562 


FRRB 


002624 


ERR6 


002632 


ERRCNT 


0101 i4 


ERRD 


002642 


FRRE 


002644 


ERROR a 


104003 


ERROR 1 a 


104013 


ERRRX a 


104015 


FRRTM a 


104014 


ERR 1 


002534 


ERR3A 


007230 


ERR3B 


007244 


FRR3C 


007252 


ERTP 


004520 


ERTPA 


004370 


FILL 


004146 


FILL A 


004154 


FINISH 


003476 


FIVE 


003730 


FMAP 


001350 


FNONF. 


001346 


FORMA0 


004704 


FROMPC 


001342 


FTITLE 


001344 


GENPAR 


003600 


INBUF 


016660 


INBUFP 


001376 


INCPRG 


002354 


INDAT 


003322 


INFIL 


004142 


LDLINE 


014236 


LDPRI 


010274 


LDPRI A 


010310 


LDPRIX 


010334 


LOTVEC 


010226 


LDTVEO 


010246 


I.DVECB 


010202 


LOVECS 


010162 


L0VEC1 


010214 


L0VEC2 


010262 


LFAIL 


013605 


LINCA 


004760 


LXNCB 


004776 


LINCF 


005056 


l.INCHM 


011377 


LINCON 


004742 


LINE 


001330 


LINENO 


001354 


LINEUP 


005074 


LINMAD 


013427 


LIN3A 


004056 


LINSEL 


004014 


MACHER 


000004 


MAKCON 


013251 


MANUALS 


100000 


MAP A 


001520 


MAPEND 


001730 


MAPERR 


001752 


MAPNE 


001550 


MAPOK 


001560 


MAPOK A 


001672 


MAPVEC 


004626 


MOAOR 


012154 


MFROH 


012346 


MLINE 


012146 


MMODD 


014405 


MMOOX 


014363 


MMOD1 


014435 


MM0D2 


014553 


MM003 


014621 


MNONE 


012176 


MODEM 


001412 


MOOEV 


002024 


M0DEV1 


002036 


M0DEV2 


002072 


MQDEV3 


0021 16 


MOVI? 


010116 


MOVITA 


010136 


MPWRF 


014325 


MSWSEu 


012213 


MTERR 


012247 


MTITLE 


018012 


MTO 


012314 


MTRAP 


012166 


N a 


000040 


NUMBER 


001334 


OACNV 


003530 


OACNVA 


003542 


DLDPS 


001336 


OPEN a 


000000 


OTBUFP 


001406 


OUTBUF 


014710 


flVRL AY 


005076 


OVRLYA 


003106 


PARBIT 


001322 


PAREX 


00447ft 


PARMTS 


013355 


PC 8X000007 


PFAIL 


002646 


POPSP ■ 


005726 


P0PSP2® 


022626 


PR6ID 


001842 


PRBNUM 


001240 


PRGTAB 


001244 


a RG0 


006424 


PRB0A 


006534 


PRG1 


006340 


PRGiC 


006636 


PRG2 


006642 


PRG2A 


006664 


PRG2B 


006670 


PRG2C 


00667a 


PRG2M 


813504 


PRR3 


006740 


PR63A 


006734 


PRG3EX 


007462 


PRG4 


007474 


PRG4 A 


007930 


PRG4B 


007340 


PRGaC 


00754? 


PRGfiD 


007560 


PRG5 


007706 


PRGSA 


007732 


PRG5AA 


007754 


PRG58 


007762 


PRG5BB 


007772 


PRGSC 


007776 
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PRG5D 


010076 


PRG5E 


010106 


PRTY0 a 


000000 


PRTY1 a 


000040 


PRTY2 s 


000100 


PRTY3 ■ 


000140 


PRTY4 ■ 


000200 


PRTY3 a 


000240 


PRTY6 « 


000300 


PRTY7 a 


000340 


PSW « 


177776 


PWRUP 


002656 


P0TIT 


0125^7 


P1TIT 


012553 


P2TIT 


012622 


P3TIT 


012672 


P4TIT 


012730 


P5TIT 


012777 


RiUF 


010330 


RCSR 


010432 


RDDAT 


003330 


RDOCT 


003314 


RECDAT 


001336 


REMAP 


001416 


RESTRT 


002676 


RETRN 


003452 


RINTM 


012366 


RINT3 


007056 


RINT3A 


007140 


RINT3B 


007172 


RINT3E 


007260 


RI3R 


005124 


RISRA 


005164 


RISRAA 


005206 


RISRB 


003232 


RISRBB 


005300 


RISRC 


005310 


RISRCA 


005344 


RISRD 


003376 


RISRDA 


003416 


RISREX 


005650 


RISRF 


005546 


RXSRFB 


003734 


RI3RFC 


006000 


RISRFD 


006110 


RISRFE 


006152 


RI8RFF 


006124 


RXSRPG 


006164 


risrfh 


006202 


RISR0 


011022 


RI8R1 


011032 


RI3R10 


011122 


RISR11 


011132 


R I SRI 2 


011142 


RISR13 


011132 


RXSR14 


011162 


RISR15 


011 172 


PISR16 


011202 


RISR17 


0U212 


RXSR2 


011042 


RI3R20 


011222 


RISR21 


011232 


RISR22 


011242 


PI3R23 


011232 


RISR24 


01 1262 


PISR25 


01 1272 


RI3R26 


011302 


BI3R27 


011312 


RISR3 


011052 


RISR30 


011322 


RI3R31 


011332 


RI8R32 


011342 


RISR33 


011352 


RI3R34 


011362 


RI3R33 


011372 


RX3R36 


011402 


RISR4 


011062 


PISR5 


01 1072 


RISR6 


011102 


RI8R7 


011112 


ROVER 


013623 


RREAD 


003442 


R8TPC 


002330 


R3TP8W 


002332 


RSTREGa 


104012 


RSTRG 


002314 


RTN 


003732 


RXBUF 


001202 


RXBUFT 


007472 


RXC3R 


001200 


RXC8RT 


001370 


RXERR 


§02732 


RXLVL 


001212 


RXVTP 


001210 


R0 ®%mmm 


Rl »X000001 


R2 8X000002 


R3 b%000003 


R4 aX000004 


R5 BX00000S 


SAVE 


001326 


SAVREGb 


10401 1 


3AVRG 


002254 


SAVR0 


003312 


SELCAR 


013143 


SELPAR 


013055 


3ETPAR 


004402 


SEVEN 


003676 


SIX 


003654 


S0FT3R 


000176 


3P ®%00000& 


SRPTR 


000174 


SRT 


001374 


ST AD 


000300 


STALL a 


104002 


START 


001422 


START i 


001770 


STf!ONT 


000226 


STKPTRa 


001200 


STPARA 


004300 


STPPA 


0031 10 


3TPRA 


00S0&0 


STRVRV 


003042 


3TRKV s 


104006 


STTXV s 


104007 


STXMTV 


003072 


SUBTEN 


004314 


8UBTNA 


004320 


SUBTNB 


004334 


SVRPC 


002310 


8VRP3W 


002312 


TBITi 


004434 


TBUF 


010724 


TBUFFP 


001410 


TCONFI 


013477 


TCRLF 


007654 


TCSR 


010626 


TEMP 


001372 


TEMPI 


001332 


TENPWR 


004360 


TFLAG 


007466 


TINTM 


012407 


TINTS 


007270 


TINT3B 


007340 


TINT3C 


007402 


TISR 


006260 


TISRA 


006276 


TISRAA 


006274 


TISRB 


006404 


TISRBB 


006374 


TJSRC 


006344 


TI3R0 


011412 


TI3R1 


011422 


TISR10 


011512 


TI8R11 


011522 


TISR12 


011532 


TISR13 


011542 


TISR14 


011552 


TISR13 


011562 


TI3R16 


011372 


TISR>1T 


01 1602 


TISR2 


011432 


TlSRg® 


011612 


TISR31 


011622 


**SR22 


01 1632 


TI3R23 


011642 


TI3R24 


011632 


TI3R2S 


011662 


. 3R2& 


011672 


TISR27 


011702 


TI8RJ 


011442 


TI8R30 


011712 


f I3R3i 


011722 


TISR32 


011732 


TISR33 


011742 


TISR34 


011732 


TISR35 


01 1762 


TISR36 


011772 


TI8R37 


013002 


TISR4 


011452 


TISR5 


011462 


T I SR6 


011472 


TI8R7 


011302 


TKB 


001222 


TKLVL 


001232 


TK8 


001220 


TKVTR 


001230 


TLINE 


013723 


TLlNEx 


013675 


TQPC 


001340 


TP8 


001226 


TPINT 


007422 


TPINTA 


007442 


TPLVL 


001236 


TPS 


001224 


TPVTR 


001234 


TXBUF 


001206 


TXCSR 


001204 


TXCSRT 


001366 


TXERR 


002710 


TXLVL 


001216 


TXVTR 


001214 


TYP 


003122 


TYP A 


003136 


TYPC 


003160 


TVPD 


003176 


TYPO AT 


001242 


TYPE a 


104000 


TYPES > 


104001 


TYPF 


003214 


TYP8 


003244 


TYP3A 


003300 


TYPSAA 


003250 


TYP38 


003306 


UR 


014162 


UR A 


014212 
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ERRORS HETECTEOJ 

#DZDLBB. DZOLBB anZOLBB. SRC/SOL 
RUN-TIME I 10 17 SECONDS 
CORE USED i 10K 



